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SEQ 0001 


ABSTRACT 


THE TYPESET=11 READER AND PUNCH TESTS CONSISTS OF A PACKAGE 

OF TEST PROGRAMS DESIGNED TO TEST THE PA611 READER LOGIC, READER, 
PUNCH LOGIC, PUNCH, AND THE READER AND PUNCH IN COMBINATION. 

ALL TESTS ARE INCLUDED. IN ONE OBJECT TAPE. 


THE “we "ABLE TESTS ARE LISTED HERE IN NUMERICAL ORDER: 


PRGO =READER TEST 

PRG1 -PUNCH TEST 

PRG2 -PUNCH VERIFY ROUTINE 

PRGS -COMBINED READER-PUNCH TEST 

PRG4 =PUNCH TAPE WITH 2 CHARACTERS SET IN SR ROUTINE. 
PRGS -READ AND CHECK TAPE PUNCHED es 2 CHARACTERS SET IN SR. 
PRG6 =-READ X CHARACTERS, THEN STALL Y MSECS. 

PRG7 -SPECIAL BINARY COUNT PATTERN TAPE GENERATOR. 
PRG10-READER SPEED PRINT ROUTINE. 

PRG11=PUNCH SPEED PRINT ROUTINE. 

PRG12=PUNCH LOGIC INIT TEST 

PRG13-READER LOGIC LIGHT TEST 


PROGRAMS PRGO THROUGH PRG3 ARE THE READER AND PUNCH TESTS. 
PROGRAMS PRG4 THROUGH PRG11 ARE UTILITY ROUTINES THAT PRODUCE 
TEST TAPES AND AID IN MAKING ADJUSTMENTS. 


REQUIREMENTS 


A. PDP-11 PROCESSOR. (4K CORE) 

B. ASR33/35 TELETYPE 

C. PA611 READER(S) AND PUNCH(S). 

THE PROCESSOR AND TELETYPE MUST BE IN OPERATING CONDITION. 


THE TELETYPE MUST BE AT ITS STANDARD PERIPHERAL ADDRESSES. 
SEE SECTION 7.3 FOR OPERATION WITH NON-STANDARD PERIPHERAL ADDRESSES. 


THIS PROGRAM USES LOCATION 00200 THROUGH 015600. 
LOADING PROCEDURE 


THIS PROGRAM'S OBJECT TAPE IS PUNCHED IN ABSOLUTE FORMAT. 
THE ABS LOADER IS USED TO LOAD THE PROGRAM. 


THE PROGRAM WILL SELF-START IN ORDER TO INITIALIZE FOR THE NUMBER 
OF READERS AND PUNCHES IN THE SYSTEM. FOLLOW TYPED INSTRUCTIONS. 


RESTART ADDRESS 





THE RESTART ADDRESS OF THIS PROGRAM IS LOCATION 1004. 
RESTART ADDRESS: 1004 
START PROCEDURE 


N GENERAL, ALL TESTS ARE INITIATED BY LOADING ADDRESS 
300. DEPOSITING TEST # IN SWITCH REGISTER, AND HITTING 


CONTINUE . 


SEQ 0003 





USE PROCEDURE 


INSURE THAT TELETYPE IS ON-LINE 
LOAD READER WITH SPECIAL BINARY COUNT PATTERN TEST LOOP. IF NOT 
A MUST BE UNDER READ HEAD. 


TO START. 
THE PROGRAM IDENTIFIES ITSELF, TYPES SET UP AND SR OPTION 
INSTRUCTIONS. SELECT ANY DESIRED OPTIONS. 


HALT ON ERROR. 

ENTER SCOPE MODE. 

INHIBIT ERROR PRINT. 

INHIBIT ITERATION. 

HALT AT END OF CURRENT ROUTINE. 

SELECT A SPECIFIC ROUTINE FOR EXECUTION. 
SR7_ THROUGH SRO=NUMBER OF ROUTINE TO BE SELECTED. 


SECTION 7.2 GIVES A COMPLETE EXPLANATION OF SR OPTIONS. 


F. PRESS CONTINUE. FOLLOW PROGRAM INSTRUCTIONS 

G. REFER TO SECTION 6.2 IF ANY ERROR PRINTOUTS OCCUR. 

H. WHEN THE PROGRAM HAS COMPLETED ONE PASS IT WILL TYPE POCEND. 
ONE ERROR-FREE PASS WILL TAKE APPROXIMATELY 10 MINUTES. 


PRG1 USE PROCEDURE (DESCRIPTION IN SECTION 8.2) 


INSURE THAT TELETYPE IS ON-LINE. 
INSURE THAT THE PUNCH HAS AN ADEQUATE SUPPLY OF TAPE. 


S$ 00200. 
R TO 000001. PRESS START. 
THE PROGRAM IDENTIFIES ITSELF AND TYPES INSTRUCTIONS TO 
SET ANY DESIRED SR OPTIONS. SELECT ANY DESIRED OPTIONS. 


HALT ON ERROR. 
ENTER SCOPE MODE. 
INHIBIT ERROR PRINT. 
INHIBIT ITERATION. 
HALT AT END OF CURRENT ROUTINE. 
9=1 SELECT A SPECIFIC ROUTINE FOR EXECUTION. 
SR7 THROUGH SRO=NUMBER OF ROUTINE TO BE SELECTED. 


A FULL EXPLANATION OF SR OPTIONS IS GIVEN IN SECTION 7.2. 


F. PRESS CONTINUE. FOLLOW PROGRAM INSTRUCTIONS. 
G. Ot COMPLETION OF A PROGRAM PASS THE PROGRAM WILL TYPE 


H. REFER TO SECTION 6. IF ANY ERRORS OCCUR. 
ONE ERROR-FREE PASS WILL TAKE APPROXIMATELY 10 MINUTES. 
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PRG2 USE PROCEDURE (DESCRIPTION IN SECTION 8.3) 


INSURE THAT TELETYPE IS ON-LINE. 

LOAD TAPE THAT WAS PUNCHED BY PRGI=PUNCH TEST IN READER. 

LOAD TAPE SO THAT THE FIRST RUBOUT CHARACTER (ALL 1'S) IS ON THE RIGHT 
EDGE OF THE METAL PLATE OVER THE READ STATION. MAKE READER READY. 

LOAD ADDRESS ae 

SET SR TO 000002. PRESS STAR 

THE PROGRAM IDENTIFIES ITSELF “AND TYPES INSTRUCTIONS TO LOAD THE 


READER. 

PRESS CONTINUE. THE PROGRAM WILL READ THE TAPE AND REPORT 
ANY ERRORS. DISREGARD - ERRORS THAT OCCUR WHEN THE READER 
REACHES THE END OF THE TAPE. 

THE SR OPTIONS AVAILABLE IN THIS PROGRAM ARE: 


SR15=1 HALT ON ERROR. 
SR13=1 INHIBIT ERROR PRINT. 


H. REFER TO SECTION 6. IF ERRORS OCCUR. 


PRG2 DOES NOT RESYNC THE READER AT ANY TIME. IT'S INTENT IS 
TO SHOW EACH AND EVERY ERROR CAUSED BY THE PUNCH. 


EXECUTION TIME DEPENDS ON LENGTH OF TAPE TO BE VERIFIED. 
PRG3 USE PROCEDURE (DESCRIPTION IN SECTION 8.4) 


INSURE THAT TELETYPE IS ON-LINE. 

INSURE THAT THE PUNCH HAS AN ADEQUATE SUPPLY OF TAPE. 
USING THE “PUNCH FEED'' KEY, PuNce 2 FTET BLANK LEADER. 
LOAD A 1°’ THICK STACK OF PREPUNCHED SPECIAL BINARY COUNT 
PATTERN TAPE IN READER, AND MAKE READER READY. THE BLANK 
LEADER PORTION OF THE TAPE MUST BE AT THE READ STATION. 
LOAD ADDRESS 000200. 

SET SR TO 000003. PRESS STAR 

THE PROGRAM IDENTIFIES ITSELF “AND TYPES INSTRUCTIONS TO PUNCH 
LEADER AND LOAD READER. 

PRESS CONTINUE. THE PROGRAM WILL PUNCH A NEW BINARY COUNT 
PATTERN WHILE READING THE PREPUNCHED TAPE IN THE READER. 
THE PROGRAM SHOULD RUN ERROR-FREE UNTIL THE READER TAPE IS 
EXHAUSTED, AT WHICH POINT A READER NOT READY MESSAGE WILL 
OCCUR. REPLACE THE READER TAPE WITH THE TAPE JUST PUNCHED 
AND RERUN THE TEST. RUN THE TEST 6 TIMES. 

THE SR OPTIONS AVAILABLE WITH THIS PROGRAM ARE: 


SR15=1 HALT ON ERROR. 
SR13=1 INHIBIT ERROR PRINT. 


I. REFER TO SECTION 6. IF ERRORS OCCUR. 
EXECUTION TIME: PRG3 IS CONTINUOUS RUNNING. 
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PRG4 USE PROCEDURE (DESCRIPTION IN SECTION 8.5) 


THIS PROGRAM CONTINUOUSLY PUNCHES Sa ah 2 CHARACTERS 
WHOSE CODES HAVE BEEN SET IN SR. TOR 


INSURE THAT TELETYPE IS ON-LINE. 

INSURE TAHT THE PUNCH HAS AN ADEQUATE SUPPLY OF TAPE. 
LOAD ADDRESS 000200 

SET SR TO 000004. PRESS STAR 

THE PROGRAM IDENTIFIES LISLE “AND TYPES INSTRUCTIONS TO SET SR 
TO DESIRED CODES AND PUNCH READY. 

PRESS CONTINUE. THE PROGRAM WILL PUNCH THE DESIRED 
CHARACTERS CONTINUOUSLY UNTIL STOPPED BY USER. 

THE CHARACTERS TO BE PUNCHED MAY BE CHANGED WHILE THE 
PROGRAM IS RUNNING. 

THIS PROGRAM HAS NO SR OPTIONS. 


EXECUTION TIME: CONTINUOUS RUNNING PROGRAM. 
PRGS USE PROCEDURE (DESCRIPTION IN SECTION 8.6) 


THIS PROGRAM READS AND CHECKS A TAPE PUNCHED WITH ANY 2 CHARACTERS 
WHOSE CODES HAVE BEEN SET IN THE SR. TO RUN: 


INSURE THAT TELETYPE IS ON-LINE. 

LOAD TAPE TO BE READ IN READER. DATA MUST BE UNDER READ STATION. 
LOAD ADDRESS 000200. 

SET SR TO 000005. PRESS START. 

FOLLOW PROGRAM INSTRUCTIONS. 

THE PROGRAM WILL READ THE TAPE AND REPORT ANY ERRORS. 

THE SR OPTIONS AVAILABLE WITH THIS PROGRAM ARE: 


SR15=1 HALT ON ERROR. 
SR13=1 INHIBIT ERROR PRINT. 


H. REFER TO SECTION 6. IF ERRORS OCCUR. 
EXECUTION TIME: CONTINUOUS RUNNING PROGRAM. 


PRG6 USE PROCEDURE 


THIS PROGRAM IS INTENDED AS AN AID IN SCOPING AND ADJUSTING 
THE READER AND READER LOGIC. TO RUN: 


INSURE THAT TELETYPE IS ON-LINE. 

LOAD ANY TAPE LOOP IN THE READER. ONE'S AND ZEROES LOOP IS 

A GOOD CHOICE. 

LOAD = te os S$ 000200 

SET O 000006. PRESS START 

THE PROGRAM IDENTIFIES ITSELF AND yo ie gt tip ay TO SET THE 
SR TO NUMBER OF CHARACTERS TO READ AND TO NUMBER OF MILLISECONDS 
TO STALL AFTER READING THE CHARACTERS. PLEASE NOTE: 


1. THE LEFT 8 SWITCHES ARE FOR_THE NUMBER OF CHARACTERS TO BE READ. 
THE RANGE IS BETWEEN 1 AND 377(8). 


2. THE RIGHT 8 SWITCHES ARE FOR SETTING THE NUMBER OF MILLISECONDS 
TO STALL AFTER READING THE NUMBER OF CHARACTERS SPECIFIED. 


PRESS CONTINUE. THE PROGRAM WILL CONTINUOUSLY READ AND STALL 
UNTIL STOPPED BY USER 
THE SETTINGS OF THE SR MAY BE CHANGED AT ANY TIME. 

EXECUTION TIME: CONTINUOUS RUNNING PROGRAM. 


PRG7 USE PROCEDURE 


THIS PROGRAM CONTINUOUSLY PUNCHES A TAPE WITH THE SPECIAL 
BINARY COUNT PATTERN. TO RUN: 


INSURE THAT TELETYPE IS ON-LINE 

MAKE SURE THAT THE PUNCH HAS AN ADEQUATE SUPPLY OF TAPE. 
LOAD ADDRESS sage 

SET SR TO 000007. PRESS STAR 

THE PROGRAM IDENTIFIES ITSELF, AND TYPES INSTRUCTION 

TO MAKE THE PUNCH READY. 

PRESS CONTINUE. THE SPECIAL BINARY COUNT PATTERN WILL 
BE PUNCHED UNTIL THE PROGRAM IS STOPPED BY USER. 








PRG10 USE PROCEDURE 


THIS PROGRAM IS INTENDED AS AN AID_IN DETERMINING THE SPEED 
OF THE READER. IT IS NOT INTENDED TO REPLACE REGULAR SCOPING 
PROCEDURES FOR SETTING THE READER TO ITS CORRECT SPEED. 


WITH THIS PROGRAM THE READER SPEED CAN BE MEASURED IN TWO WAYS: 


1. 30 SECOND MEASUREMENT PERIOD. PLUS OR MINUS 10 CHARACTER ACCURACY 
2. 300 SECOND (5 MINUTE) MEASUREMENT PERIOD. PLUS OR MINUS 1 CHARACTER ACCURACY 


me EITHER yA MEASUREMENT ACCURACY DEPENDS ON THE USER'S ATTENTION 
STARTING AND ENDING TIMES OF MEASUREMENT, AS THE TIME INTERVALS ARE 
DETERMINED BY THE USER USING A SWEEP SECOND HAND WATCH OR STOP WATCH. 


THE SPECIFIED ACCURACY ASSUMES THAT THE USER WILL TERMINATE THE 
MEASURING INTERVAL WITHIN ONE SECOND OF THE MEASUREMENT PERIOD. TO RUN: 


INSURE THAT TELETYPE IS ON-LINE 

MOUNT ANY TAPE LOOP IN READER. 

LOAD ADDRESS 000200. 

SET SR TO 000010. PRESS STAR 

THE PROGRAM IDENTIFIES ITSELF AND AND TYPES INSTRUCTIONS A LOAD READER 
AND MAKE READY, AND TO SELECT DESIRED MEASUREMENT PERIOD 

PRESS CONTINUE WHEN READY TO START MEASUREMENT. THE READER 

WILL START RUNNING. 

AT END OF TIME PERIOD, SET SR15 TO A 1 AND BACK TOO A 

THE PROGRAM WILL TYPE READER SPEED IN CHARACTERS PER SECOND AND HALT. 
TO REPEAT, SELECT THE DESIRED TIME PERIOD WITH SR14, 

SURE THAT SR15 IS SET TO 0, AND PRESS CONTINUE WHEN READY. 


PRG11 USE PROCEDURE 


THIS PROGRAM IS INTENDED AS AN AID IN DETERMINING THE PUNCH SPEED. 
THE SPEED OF THE PUNCH CAN BE MEASURED WITHIN ONE CHARACTER ACCURACY 
PROVIDED THE USER PAYS CLOSE ATTENTION TO THE STARTING AND STOPPING 
TIME OF THE MEASUREMENT PERIOD. THE MEASUREMENT PERIOD IS CONTROLLED 
BY THE USER USING A SWEEP SECOND WATCH OR STOP WATCH. THE PERIOD 
USED IS 60 SECONDS. TO RUN: 


INSURE THAT TELETYPE IS ON-LINE 
INSURE THAT PUNCH HAS AN ADEQUATE SUPPLY OF TAPE. 


PRESS STAR 
op Bags pg IDENTIFIES 1ISeLF AND TYPES INSTRUCTIONS TO MAKE 
PRESS CONTINUE WHEN READY TO START. THE PUNCH WILL START RUNNING. 
AT END OF TIME PERIOD (60 SECONDS), SET SR15 TO A 1 AND BACK TO QO. 
THE PROGRAM WILL TYPE PUNCH SPEED IN CHARACTER PER SECOND AND HALT. 
TO REPEAT, MAKE SURE THAT SR15 IS SET TO A 0, AND PRESS CONTINUE. 


PRG12 USE PROCEDURE 


THIS PROGRAM IS INTENDED TO BE USED AS AN AID IN CHECKING 


J. 1 
OUT THE ADDITIONAL LOGIC ADDED TO THE PUNCH CONTROLLER THAT 
eatns THE PROGRAMMER TO ISSUE ‘PUNCH RESET’’ UNDER SOF TWARE 


THIS CODE EXECUTES UNDER OPERATOR INTERVENTION. THE 
OPERATOR TRIES TO *HANG’’ THE PUNCH BY PERFORMING THE 
FOLLOWING STEPS. 


FIRST MAKE SURE THE PUNCH IS READY. THE PUNCH KNOB 
SHOULD BE SET TO THE ‘‘AVAILABLE’* POSITION. RUN THIS TEST 
THE PUNCH WILL START PUNCHING A BINARY BY LOADING ADDRESS 
BY LOADING ADDRESS 200, SETTING THE SWITCH REGISTER TO 12 
AND HITTING THE START SWITCH. 

THE PUNCH WILL START PUNCHING A BINARY PATTERN. 


REMOVE THE PAPER ROLL FROM IT'S HOLDER AND PLACE rie ON THE RIGHT HAND 
SIDE OF THE PUNCH. (DO NOT TEAR THE PAPER TAPE AND MAKE 

SURE IT FEEDS CORRECTLY). THE TEST WILL CONTINUE TO PUNCH 

OUT AN ENDLESS STREAM OF CHARACTERS. 


THIS STREAM OF CHARACTERS CAN ONLY BE INTERRUPTED 
BY ‘HANGING’ THE PUNCH CONTROL LOGIC. 


TO HANG THE CONTROL LOGIC, TURN THE PUNCH ‘OFF** VIA THE 
‘OF FLINE/ONLINE’* KNOB ON THE TOP OF THE PUNCH, WHILE 
CHARACTERS ARE BEING PUNCHED OUT. WAIT FOR THE PUNCH 
MOTOR TO STOP. 


THIS WILL CAUSE THE PUNCH TO SHUTOFF. 


AT THIS POINT 


THE PUNCH SHOULD BE HUNG. TO SEE IF THE PUNCH IS HUNG, 
TURN THE CONTROL KNOB BACK TO ‘AVAILABLE’. IF TURNING THE 
KNOB BACK TO AVAILABLE CAUSES MORE CHARACTERS TO BE 
PUNCHED, THEN THE PUNCH IS NOT HUNG. 
IF CHARACTERS ARE BEING PUNCHED OUT, THEN THIS SHUT- OFF PROCESS 
MUST BE REPEATED UNTIL THE PUNCH HANGS. 
IF THE PUNCH DOES NOT HANG, START AGAIN AT STEP #2. 


AFTER THE PUNCH IS HUNG, TURN THE CONTROL KNOB BACK 
TO ‘‘AVAILABLE*’. 


IF THE PUNCH DOES HANG, THEN THE PROGRAMMABLE INIT 
FUNCTION IS READY TO BE TESTED. ~ gly "‘CONT INUE** ON 
THE PDP-11 CONTROL PANEL WILL CAUSE THE PROGRAMMABLE 
INIT TO BE INVOKED. THE PROGRAM WILL CONTINUE TO 
PUNCH CHARACTERS IF THE INIT IS WORKING CORRECTLY. 

IF THE PUNCH IS STILL HANGING THEN THE PROGRAMMABLE 
INIT DID NOT WORK. 


SWITCH REGISTER OPTIONS: 
SR14=1 TO SCOPE LOOP ON THE PROGRAMMABLE INIT FUNCTION 








5EQ 0010 
PRG13 USE PROCEDURE 


THIS PROCEDURE IS USED TO DETERMINE IF THE READER LIGHT LOGIC 
IS WORKING CORRECTLY. IT CHECKS THE ABILITY OF THE READER 
LIGHT TO BE TURNED OFF UNDFR PROGRAM CONTROL. 


STEPS: 


RUN THIS TEST BY SELECTING IT VIA THE SWITCH REGISTER AND STARTING 
AT LOCATION 200. 


PUT SWITCH 8 OF THE SWITCH REGISTER TO ZERO. 
PUT THE READER NUMBER IN THE SWITCH REGISTER 
WHEN THE PROGRAM ASKS FOR IT. 


AFTER SELECTING A GIVEN READER VIA THE SWITCH REGISTER, TURN 
THE READER LIGHT ‘ON’ BY PRESSING THE MOMENTARY CONTACT 
‘ON/OFF’ SWITCH ON THE READER. 


IF THE READER LIGHT DOES NOT COME ON, THEN EITHER THE 
LIGHT OR THE SWITCH IS PROBABLY DEFECTIVE. 


ONCE THE READER LIGHT IS ON, THE OPERATOR SHOULD PUT 
SWITCH 8 TO A ONE TO TURN IT OFF. THE PROGRAM MONITORS 

THE POSITION OF SWITCH 8. WHEN SWITCH 8 IS a THE PROGRAMS 
ISSUES A SOFTWARE COMMAND TO TURN THE LIGHT 

IF THE LIGHT REMAINS ON AFTER SWITCH 8 HAS BEEN’ SET 

TO A ONE, THEN THE READER LOGIC IS DEFECTIVE. 


IF THE READER LIGHT GOES OFF WHEN SWITCH 8 IS IN THE 
ONE STATE, THEN THE TEST HAS WORKED CORRECTLY. 


TO SELECT A NEW READER, PUT SWITCH 12 TO A ONE AND HIT CONTINUE. 


TO RE-RUN THE TEST, GO DO STEP 1 AND STEP 2, THEN HIT 
CONTINUE . 


SWITCH REGISTER OPTIONS AVAILABLE IN THIS TEST ARE: 


TO SELECT A NEW READER TO TEST. 

TO TURN LIGHT OFF ON READER SELECTED. 

TO DO A SCOPE LOOP ON THE PROGRAMMABLE READER 
LIGHT DISABLE FUNCTION. 








PROGRAM AND/OR OPERATOR ACTION 


LOC 002502 COMMON HALT. THIS HALT IS CONTAINED IN A SUBROUTINE 
THAT IS CALLED BY THOSE PARTS OF THE PROGRAM REQUIRING 
THAT THE PROCESSOR HALT. THIS HALT NORMALLY OCCURS 
UPON COMPLETION ON AN INSTRUCTION OR STATUS PRINTOUT. 
WHEN THE HALT OCCURS, THE CONSOLE DATA LIGHTS DISPLAY 
hese OF INSTRUCTION THAT GENERATED THE HALT 


LOC 002032 ROUTINE END HALT. THIS HALT OCCURS UPON COMPLETION 
OF THE CURRENT TEST ROUTINE. WHEN THE HALT OCCURS, 
THE CONSOLE DATA LIGHTS DISPLAY THE NUMBER OF ROUTINE 
JUST COMPLETED. THE HALT OCCURS ONLY IF SR10 IS SET 
siune fects THOSE PROGRAMS THAT MAKE USE OF THE OPT!ON 


NORMAL PRINTOUTS 


NORMAL PRINTOUTS IN THIS PROGRAM SERVE TO IDENTIFY A STARTING 

PROGRAM, TO PROVIDE INSTRUCTIONS, TO INDICATE STATUS, OR TO SIGNAL 
AN OPERATOR ERROR. MOST PRINTOUTS ARE SELF-EXPLANATORY. THOSE 

PRINTOUTS REQUIRING ADDITIONAL EXPLANATION FOLLOW. 


**2 INVALID PROGRAM’ 


THE USER HAS SELECTED FOR EXECUTION A NON-EXISTENT PROGRAM. 
SET IN SR3 THROUGH SRO THE CORRECT PROGRAM NUMBER AND 
PRESS CONTINUE. 


**2 INVALID TEST" 

THE USER HAS SELECTED FOR EXECUTION A NON-EXISTENT ROUTINE. 

SET CORRECT ROUTINE NUMBER IN SR7 THROUGH SRO AND PRESS CONTINUE. 
*PXX END."' 


THE SPECIFIED PROGRAM HAS COMPLETED ONE PASS. 


SEQ 0011 





SEQ 0012 


ERRORS ARE REPORTED IN THIS PROGRAM BY ONE OF THE FOLLOWING METHODS: 


A. UNCONDITIONAL ERROR HALTS, OR 
B. ERROR PRINTOUT FOLLOWED BY AN OPTIONAL ERROR HALT. 


UNCONDITIONAL ERROR HALTS 


AN UNCONDITIONAL ERROR HALT WILL OCCUR AT THE ADDRESSES LISTED 
BELOW IF THROUGH HARDWARE OR SOFTWARE FAILURE, PROGRAM CONTROL 
IS TRANSFERRED TO AN UNEXPECTED AREA BETWEEN 000000 AND 000776. 


000002 - RESERVED AREA. 

000006 - ERROR TRAP 

000012 = RESERVED INSTRUCTION TRAP 
BUG TRAP 


TRAP 
000040 THROUGH 000776 ~ SYSTEM SOFTWARE AND INTERRUPT VECTOR AREA, 
EXCEPT FOR READERS, PUNCHES,AND TTY VECTORS. 


TO FIND OUT WHERE THE PROGRAM WAS AT THE TIME THE FAILURE OCCURRED, 
PERFORM THE FOLLOWING STEPS: 


A. EXAMINE CONTENTS OF REGISTER 6 (ADDRESS 177706) 
B. TRANSFER THE CONTENTS OF REGISTER 6 TO THE SR, LOAD ADDRESS AND EXAMINE. 
C. THE DATA SHOWN IN THE DATA LIGHTS IS THE VALUE OF THE PC WHEN 
THE FAILURE OCCURRED. 
D. LOCATE IN PROGRAM LISTING THE DISPLAYED PC VALUE. 
—. THE INSTRUCTION THAT IMMEDIATELY PRECEDES THE ONE REFERENCED 
BY THE DISPLAYED PC VALUE IS THE INSTRUCTION THAT WAS/WAS BEING 
EXECUTED WHEN THE FAILURE OCCURRED. 





ERROR PRINTOUTS 


ERROR PRINTOUTS IN THIS PROGRAM CAN BE ONE OF TWO TYPES: 
A. NORMAL ERROR PRINTOUTS 
B. EXTENDED ERROR PRINTOUTS 


NORMAL ERROR PRINTOUTS 


NORMAL ERROR PRINTOUTS ARE GENERATED BY THE ‘TERR’ SUBROUTINE. 
THE ERR SUBROUTINE IS CALLED BY AN ‘ERROR'’ STATEMENT IN THE 
PROGRAM LISTING. THE NORMAL ERROR PRINTOUT TAKES THE FORM: 


"PXX TYYY PC 022222 ICNT vvvVV."' 

WHERE : 

PXX IS THE NUMBER OF THE PROGRAM BEING RUN, 

TYYY IS THE NUMBER OF ROUTINE WHERE FAILURE OCCURRED. 

PC 022722 IS THE ADDRESS FROM WHICH THE ERROR CALLED WAS ISSUED. 

ICNT VVVVV. IS NUMBER OF TIMES TEST WAS DONE WHEN FAILURE OCCURRED. 
MEANINGFUL ONLY IN PRGO AND PRG1. 


AFTER THE PRINTOUT IS COMPLETED, THE PROGRAM WILL HALT AT 
COMMON ERROR HALT AT LOC 002516 IF SR15 IS SET. 


WHEN THIS TYPE OF ERROR PRINTOUT OCCURS: 


A. IN THE PROGRAM LISTING, LOOK UP THE ADDRESS REFERENCED BY PC0Z222Z. 
B. OPPOSITE THE PC VALUE AN ERROR STATEMENT WILL BE FOUND, AND 
IN THE COMMENTS SECTION A DESCRIPTION OF THE FAILURE WILL BE 


FOUND. 
C. AT THE BEGINNING OF THE TEST ROUTINE A DESCRIPTION OF THE TEST 
WILL BE FOUND. 


EXTENDED ERROR PRINTOUTS 


IN ADDITION TO THE INFORMATION TYPED BY THE NORMAL ERROR PRINTOUTS, 
THE EXTENDED ERROR PRINTOUTS TYPE INFORMATION THAT DESCRIBES THE TYPE 
OF FAILURE. MOST EXTENDED PRINTOUTS CONCERN THEMSELVES WITH DATA 
PROBLEMS. THE Ay np a ARE GENERATED BY THE ‘ERRN'’ SUBROUTINE 

WHICH IS CALLED BY AN ‘ERRORN'’ STATEMENT IN THE PROGRAM LISTING. 

A TYPICAL PRINTOUT WOULD LOOK AS FOLLOWS: 


"POS TOOO PC 011350 ICNT 00000. DATA ERROR S/B:0371 WAS:0071°' 


THE PROGRAM, TEST AND PC INFORMATION ARE THE SAME AS FOR NORMAL 
ERROR PRINTOUTS. THE PC VALUE ALTHOUGH HAVING THE SAME MEANING, 
IS NOT AS MEANINGFUL, SINCE THE ERRN SUBROUTINE MAY BE BEING 
CALLED BY A COMMON DATA ERROR SUBROUTINE WHICH IS USED BY MORE 
THAN ONE PROGRAM. 


SEQ 0013 
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(6.2.2 CONT'D) 


THE IMPORTANT INFORMATION IN AN EXTENDED ERROR PRINTOUT IS THE 
“EXTENDED'' INFORMATION TYPED. SOME OF THE EXTENDED PRINTOUTS 
ARE DESCRIBED BELOW: 


“DATA ERROR S/B XXXX WAS: YYYY'' 


DATA READ WITH READER DOES NOT AGREE WITH EXPECTED DATA. 
S/B_XXXX (SHOULD BE) IS THE EXPECTED DATA. WAS YYYY IS THE 
RECEIVED DATA. DEPENDING ON THE PROGRAM, THE FAILURE COULD 
BE CAUSED BY THE READER OR THE PUNCH. EXAMINING THE TAPE 
WILL SHOW IF THE TAPE IS PUNCHED CORRECTLY. 


“REREAD ERROR. 1ST READ: XXXX WAS: YYYY"' 


THIS ERROR PRINTOUT IS GENERATED BY PRGO TEST14. IT_ INDICATES 
THAT A REREAD OF THE READER BUFFER DID NOT AGREE WITH THE 
ORIGINAL DATA READ FROM THE BUFFER. 


"“SYNC ERROR" 


THIS PRINTOUT INDICATES THAT A PROGRAM WAS UNSUCCESSFUL IN 
SYNCING UP WITH THE SPECIAL BINARY COUNT PATTERN TAPE IN 

THE READER, OR IN THE ay 8 OF PRG2, THAT THE PROGRAM HAS NOT 
READ A SUFFICIENT NUMBER OF ZEROES BEFORE SYNCING UP WITH 
a ete fot (377). IF HALTED, PRESS CONTINUE 


"LEADER ERROR S/8: 377 WAS: XXXX'' OR 
“LEADER ERROR S/6 SETWEEN 0 AND 3. WAS: XXXX 


ONE OR BOTH OF THESE PRINTOUTS IS GENERATED BY PRG2 WHEN I)! 
READING THE LEADER THAT PRECEDES THE SPECIAL BINARY COUNT P INCHED 
BY PRG3 THE DATA DOES NOT AGREE WITH THE EXPECTED DATA. CHE’’K 
ia i Blog IS PUNCHED CORRECTLY. REFER TO PRG1 AND PRG2 


“MATCH ERROR" 


THIS PRINTOUT IS GENERATED BY PRGS WHEN UNSUCCESSFUL IN MATCHING 
UP THE DATA READ FROM THE READER WITH THE EXPECTED DATA AS 
SPECIFIED BY SR. CHECK THAT THE TAPE IS THE ONE TO BE READ AND 
RESTART THE PROGRAM. 


"FALSE READER INTERRUPT’* OR, 
"FALSE PUNCH INTERRUPT" 


THE PROGRAM DID NOT FIND THE ERROR OR THE DONE BIT SET FOLLOWING 
AN INTERRUPT. POSSIBLY NOISE COULD BE CAUSING THE PROBLEM. 
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MISCELLANEOUS 
TEST TAPES 


THE FOLLOWING TEST TAPES ARE RELEASED WITH THIS PROGRAM: 


A. MAINDEC-00-D2G4-PT SPECIAL BINARY COUNT PATTERN TEST TAPE. 
B. MAINDEC-00-D2G2-PT ONES AND ZEROES TEST TAPE. 


THE SPECIAL BINARY COUNT PATTERN TAPE IS PUNCHED WITH A PAT~ 
TERN CONSISTING OF THE NUMBERS 000 THROUGH 377. EACH NUMBER 
Rd hl FOLLOWED BY ITS ONES COMPLEMENT NUMBER. 


001, 376, 002, 375, 003, 374, 004, 373, ETC. 


THE EASIEST WAY TO MAKE A SPECIAL BINARY COUNT PATTERN TEST 
LOOP IS TO OVERLAP THE TAPE AT THE POINT WHERE THE CHARACTERS 
377,000,000;377. APPEAR. THAT SEQUENCE OF CHARACTERS 

APPEARS EVERY 512 CHARACTERS. THEREFORE A MINIMUM Ize 

TEST LOOP WOULD CONSIST OF 512 CHARACTERS. 


SR OPTIONS 


THE STANDARD SR OPTIONS ARE DESCRIBED HERE. 
SR15 = HALT ON ERROR. 


SR14 = SCOPE. THIS OPTION CAUSES THE FROGRAM TO REMAIN IN THE 
CURRENT TEST ROUTINE. WHEN THE OPTION IS REMOVED THE 
PROGRAM PERFORMS THE TEST THE NUMBER OF TIMES SPECIFIED 

BY ITS ITERATION COUNT, BEFORE GOING ON TO THE NEXT ROUTINE. 


INHIBIT ERROR PRINT. THIS OPTION IF SET WILL REMOVE AL' 
ERROR PRINTOUTS. 


INHIBIT ITERATION. SOME PROGRAMS CONSIST OF INDIVIDUAL 
TEST ROUTINES. FOR EACH ROUTINE THE FUNCTION BEING 

TESTED CAN BE TESTED A VARIABLE NUMBER OF TIMES BEFORE 

THE ROUTINE IS COMPLETED. THE NUMBER OF TIMES THE TEST IS TO 
BE PERFORMED IS CALLED THE ITERATION COUNT AND IT MAY DIFFER 
FROM ROUTINE TO ROUTINE. SETTING SR11 WiiL CAUSE THE PROGRAM 
TO PERFORM ONLY ONE ITERATION FOR EACH ROUTINE DURING 
es eee IS SET. TWO POSSJBLE USES OF THIS 


SEQ 0015 
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A. QUICK PASS. WHEN A PROGRAM RUNS FOR SEVERAL MINUTES 
FOR ONE PROGRAM PASS, THE USER MAY ELECT TO RUN 
THROUGH THE PROGRAM QUICKLY TO FIND OUT IF ANY FAILURES 
SHOW UP ype a. Ro yt QUICK PASS HOWEVER, 
DOES NOT GUARANTEE THAT THE SAME PROGRAM WILL RUN ERROR- 
FREE WHEN PERFORMING "A NORMAL ITERATION PASS. 


B. SKIP OVER FAILING ROUTINE. WHEN A ROUTINE WITH A MULTIPLE 
ITERATION COUNT HAS DETECTED A SOLID rose THE ERROR 
WILL BE REPORTED MANY TIMES. TO GO ON TO THE NEXT 
ROUTINE IF DESIRED, THE USER CAN pt gy ITERATION. IT 
WILL_BE NECESSARY to SET SR11 ROUTINE AND HALT, TO 
CAUSE THE PROGRAM TO STOP AT END OF FAILING ROUTINE. 
OTHERWISE THE PROGRAM WILL QUICKLY RUN THROUGH THE 
NEXT ROUTINE ALSO. 


SR10 = HALT AT END OF CURRENT ROUTINE. PRGO AND PRG1 CONSIST OF 


SRO - 


INDIVIDUALLY NUMBERED TEST ROUTINES. SETTING SR10 WIi.L CAUSE 
PROGRAM TO HALT UPON COMPLETION OF CURRENT ROUTINE. 


SELECT ROUTINE. FOR PROGRAMS THAT CONSIST OF yt 34 } ua TEST 
ROUTINES, THE USER MAY ELECT TO RUN ONLY A SPECIFIED 
ROUTINE. - 10 SELECT A ROUTINE SR9 MUST BE SET, AND SR7 


BEING RUN, OR A USE 
OCCUR. THE PROGRAM WILL RUN THE SELECTED ROUTINE UNTIL THE 
SELECT ROUTINE OPTION IS CLEARED, OR UNTIL THE SELECTED 
ROUTINE NUMBER IS CHANGED. IF THE OPTION IS CLEARED, THE 
PROGRAM WILL PROCEED TO EXECUTE THE REMAINING ROUTINES IN THE 
PROGRAM. IF THE ROUTINE NUMBER IS CHANGED, THE PROGRAM 
WILL EXECUTE THE NEWLY SELECTED ROUTINE. 


SEQ 0016 


7.3 


8.1 


8.2 


PAGE 13 
TESTING AT NON-STANDARD ADDRESSES AND/OR VECTORS 


THIS PROGRAM CAN TEST PA611°S ASSIGNED TO NON-STANDARD ADDRESSES. 
ALL_READERS MUST BE ASSIGNED CONSECUTIVE ADDRESSES, AND ALL PUNCHES 
MUST BE ASSIGNED CONSECUTIVE ADDRESSES. 


A. IMMEDIATELY AFTER LOADING THE PROGRAM CHANGE THE FOLLOWING 
LOCATIONS. REFER TO PROGRAM LISTING. 


LOCATION FROM STANDARD TO NON-STANDAR 
001220 172600 1ST READER CSR ADDRESS 
001222 172700 1ST PUNCH CSR ADDRESS 


B. IF THE TELETYPE IS ALSO AT NON STANDARD ADDRESSES, PERFORM 
THE FOLLOWING CHANGES: 


LOCATION FROM STANDARD iy NON~STANDARD 

001224 177560 Y READER CSR ADDRESS 

001226 177562 TY READER BUFFER ADDRESS 

001230 177564 TTY PRINTER CSR ADDRESS 

001232 177566 TTY PRINTER BUFFER ADDRESS 

001234 000060 TTY READER INTERRUPT VECTOR ADDRESS 
001236 000200 TTY READER PRIORITY LEVEL 

001240 000064 TTY PRINTER INTERRUPT VECTOR ADDRESS 
001242 000200 TTY PRINTER PRIORITY LEVEL 


C. PROCEED TO USE THE PROGRAM, OR 


D. USING STANDARD DUMP ROUTINES, DUMP OUT THE ENTIRE PROGRAM 
IN ABSOLUTE FORMAT TO HAVE AN UPDATED OBJECT TAPE THAT 
REFLECTS YOUR SYSTEM, OR 


E. DUMP OUT ONLY LOCATIONS 001224 THROUGH 001242 IN ABSOLUTE 
FORMAT, AND SPLICE THE TAPE TO THE END OF THE STANDARD 08- 
JECT TAPE. THIS PROCEDURE WOULD REQUIRE THAT THE SHORT LENGTH 
OF TAPE BE LOADED IMMEDIATELY AFTER THE MAIN PROGRAM IS 
LOADED, IN ORDER TO OVERLAY hereto: er THROUGH 001242. 


DESCRIPTION 


PRGO PROGRAM DESCRIPTION 


PRGO IS THE PA611 READER TEST. IT CONSISTS OF 22 ROUTINES NUMBERED 
FROM 00 TO 24(8). THE PROGRAM USES A SPECIAL BINARY COUNT PATTERN 
TEST TAPE LOOP IN ALL ROUTINES. 


ROUTINES 00 THROUGH 17 ARE BASIC LOGIC TESTS. ROUTINES 20 THROUGH 24 
ARE READER EXERCISER TESTS. IN ROUTINES 20 THROUGH 24 THE READER 
WILL RESYNC ITSELF AFTER 3 DATA ERRORS HAVE OCCURRED. 


PRG1 PROGRAM DESCRIPTION 


SEQ 0017 


- . 
PRG1 IS THE PA611 PUNCH TEST. IT CONSISTS OF 16 ROUTINES NUMBERED 
FROM 00 TO 17(8). ROUTINES 00 THROUGH 13 ARE BASIC LOGIC TESTS. 
ROUTINES 14 THROUGH 17 EXERCISE THE PUNCH USING THE FOLLOWING FORMAT: 


- 20 BLANK CHARACTERS 

- SYNC CHARACTER RUBOUT. 

. MODE NUMBER (BETWEEN 0 AND 3) 

- 4 BLANK CHARACTERS 

- 512 CHARACTERS OF SPECIAL BINARY COUNT PATTERN. 


RTN14 = PUNCHES 5 DATA BLOCKS AT FULL SPEED. 
RTN15 = PUNCHES 5 DATA BLOCKS. THE SPECIAL BINARY COUNT PATTERN DATA 


A 
B 
C 
D 
E 


IS PUNCHED WITH RANDOM STALLS OF UP TO 47 MSECS. AFTER EACH CHARACTER. 


RTN16 = PUNCHES 5 DATA BLOCKS. THE SPECIAL BINARY COUNT PATTERN 
DATA IS PUNCHED WITH RANDOM STALLS OF UP TO 47 MILLISECONDS 
BETWEEN GROUPS OF CHARACTERS OF UP TO 15 CHARACTERS. 


RTN17 = PUNCHES 1 DATA BLOCK. THE SPECIAL BINARY COUNT PATTERN DATA 
DATA IS PUNCHED WITH A 5 SECOND STALL PRECEDING EACH 32 CHARACTER 
GROUP PUNCHED. 


PRG2 PROGRAM DESCRIPTION 


PRG2 VERIFIES THE PAPER TAPE PRODUCED BY PRG1. THE 
PROGRAM CONSISTS OF A SINGLE ROUTINE THAT PERFORMS THE 
FOLLOWING STEPS: 


LOOK FOR 10 CONSECUTIVE 0 CHARACTERS 
LOOK FOR SYNC CHARACTER (RUBOUT) 
LOOK FOR MODE #. BETWEEN 0 AND 3. 
READ 4 BLANK CHARACTERS 

READ 512 BINARY CHARACTERS. 

GO TO STEP A. 


THE ROUTINE WILL REPORT EVERY ERROR. IT WILL NOT RESYNC 
ON THE SPECIAL BINARY COUNT PATTERN, SINCE IT IS INTENDED 
THAT EVERY ERROR CAUSED BY THE PUNCH BE REPORTED. 


SEQ 0018 
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PRG3 COMBINED READER=PUNCH TEST 


THIS CONTINUOUS RUNNING PROGRAM EXERCISES THE PUNCH AND 
READER CONCURRENTLY. THE SPECIAL BINARY COUNT PATTERN IS USED 
IN THIS PROGRAM, 


THE PUNCH PUNCHES DATA AT FULL SPEED. WHEN THE CHARACTER COUNT 
REACHES 20, THE PUNCH ROUTINE ENABLES THE READER. 
WHEN THE CHARACTER COUNT REACHES 40, THE PUNCH ROUTINE WILL 
STOP PUNCHING. PUNCHING WILL NOT RESUME UNTIL THE CHARACTER 
COUNT IS DECREMENTED TO 31 BY THE READ ROUTINE. 

TER COUNT IS OVER 31, THE READER READS AT 


L SPEED. 
IF THE CHARACTER COUNT IS 31 OR LESS THE READER WILL READ 
WITH RANDOM STALLS BETWEEN CHARACTERS. 
E. IF THE CHARACTER COUNT BECOMES 0, THE READER STOPS READING 
UNTIL THE COUNT CLIMBS TO 20. 
THE READ ROUTINE WILL RESYNC AUTOMATICALLY AFTER 3 ERRORS. 


PRG4 PROGRAM DESCRIPTION 


PRG4 WILL PUNCH CONTINUOUSLY THE 2 CHARACTERS WHOSE CODES ARE 
SET IN THE SR. THE ROUTINE IS USED FOR GENERATING ALL O'S TAPE, 
ALL 1°S TAPE, ONES AND ZEROES TAPE, ETC. 


PRGS PROGRAM DESCRIPTION 


PRGS READS AND CHECKS A TAPE PUNCHED WITH THE CHARACTERS WHOSE 
CODES ARE SET IN THE SR. THIS ROUTINE IS USEFUL IN SETTING UP 
THE READ PHOTOCELLS AND READ AMPLIFIER. 


PRG6 PROGRAM DESCRIPTION 


PRG6 WILL ENABLE THE READER FOR THE NUMBER OF CHARACTERS 
SPECIFIED IN THE LEFT HALF OF THE SR, AND THEN IT WILL STALL 
FOR THE NUMBER OF MILLISECONDS SPECIFIED IN THE RIGHT HALF OF 
THE SR. THIS ROUTINE IS USEFUL IN SETTING UP THE READER CLOCK, 
ACCELERATOR, STROBE, AND FOR CHECKING THE STOP DELAY. 


SEQ 0019 
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PRG7 PROGRAM DESCRIPTION 


PRG7 PUNCHES THF SPECIAL BINARY COUNT PATTERN CONTINUOUSLY. 
PRG10 PROGRAM DESCRIPTION 


PRG10 IS A ROUTINE USED TO CHECK THE SPEED OF THE READER. 
READER SPEED CAN BE MEASURED IN TWO WAYS: 


A. COARSE. 30 SECOND TIMING. PLUS OR MINUS 10 CHARACTER ACCURACY. 
B. FINE. 300 SECOND TIMING. PLUS OR MINUS 1 CHARACTER ACCURACY. 


SR1i4 INDICATES TO THE ROUTINE THE TIMING PERIOD THE USER IS 
GOING TO USE. SR14=0 INDICATES 30 SECOND TIMING. 


THE USER CONTROLS THE DURATION OF THE TIMING PERIOD BY USING A 
SWEEP SECOND HAND WATCH OR STOP=WATCH. AT THE END OF THE 
TIMING PERIOD, SR15 IS SET TO A 1 TO OBTAIN A SPEED PRINTOUT. 


PRG11 PROGRAM DESCRIPTION 


PRG17 IS USED TO CHECK THE SPEED OF THE PUNCH. THE ROUTINE 
USES A 60 SECOND TIMING PERIOD THAT IS CONTROLLED BY THE USER. 
AT THE END OF THE TIMING PERIOD SR15 IS SET TO A 1 TO OBTAIN A 
SPEED PRINTOUT. 


PRG12 PROGRAM DESCRIPTION 


PROGRAM 12 IS USED TO TEST THE PROGRAMMABLE INIT art g Bs 
ADDED TO THE PUNCH CONTROL LOGIC. THE PROGRAM PUNCHES AN 
ENDLESS BINARY PATTERN, WAITING FOR THE OPERATOR TO HANG THE 
PUNCH UP. THIS CAN USUALLY BE ACCOMPLISHED BY TURNING THE 
CONTROL SWITCH OFF AND JIGGLING THE TAPE LOW SENSOR SWITCH 
WHILE THE PUNCH IS PUNCHING. IF THE PUNCH CYCLE HAS NOT BEEN 
COMPLETED, READY WILL REMAIN LOW AND THE PUNCH WILL HANG. 


THE PROGRAM SENSES THIS CONDITION IN A WATCHDOG TIMER LOOP. 
WHEN THE PROGRAM SEES THAT THE PUNCH IS HUNG, THEN IT 
TIMES OUT AND HALTS. 


WHEN THE OPERATOR HITS THE CONTINUE SWITCH, AN INIT PULSE IS 
GENERATED BY THE PROGRAM TO RE-INIT THE PUNCH. [THIS INIT 
PULSE DOES NOT EFFECT OTHER DEVICES ON THE BUS.J 

UPON HITTING THE CONTINUE SWITCH, 

THE PROCESS REPEATS ITSELF. 


PRG13 PROGRAM DESCRIPTION 


THIS PROGRAM IS USED TO CHECK THE ABILITY OF THE READER 
LIGHT TO BE TURNED OFF UNDER PROGRAM CONTROL. 





I 
ASSUMING THAT THE READER LIGHT IS ON, THE STEPS PERFORMED SEQ 0021 
BY THE PROGRAM ARE: 


GET THE ADDRESS OF THE READER TO BE TESTED (READER 
1S SELECTED VIA CONSOLE TTY RESPONSE) 


CHECK SWITCH 8. IF SWITCH 8=1 THEN ISSUE A COMMAND TO 
TURN THE LIGHT OFF. IF SWITCH 8=0 THEN RECHECK THE 
SWITCH AND LOOP 

ON THIS STEP. 


CHECK SWITCH 12. 
IF SW12=1 THEN GO TO STEP 1. 
IF SW12=0 THEN GO TO STEP 2. 





PA611 MACY11 phd 14-JUN-78 14:20 PAGE 1 
CZPAAC.P11 13-JUN-78 12:38 SEQ 0022 


STORED IN DECTAPE LIB12 = MIKE MITCHELL 3/75 

;TYPESET 11 READER=PUNCH TESTS 

[COPYRIGHT 1972, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 
-TITLE PA611 


ABS 

-ENABLE AMA 
LIST ME 
«-NLIST MD,SEQ 


OONAUESWN = 


«LIST SRC 

READER TEST 

PUNCH TEST 

PUNCH VERIFY ROUTINE 
COMBINED READER-PUNCH TEST 
PUNCH 2 CHARACTERS FROM SR. 
READ 2 CHARACTERS AS PER SR. 
READ X CHARS, STALL Y MSECS. 
PUNCH SPECIAL BINARY COUNT PATTERN TAPE. 
- READER SPEED PRINT ROUTINE. 
~ PUNCH SPEED PRINT ROUTINE. 
- PUNCH INIT TEST 
~- READER LIGHT TEST. 


HAL T-ON-ERROR. 
SCOPE 


INHIBIT ERROR PRINT. 
INHIBIT ITERATION. 
HALT AT END OF CURRENT ROUTINE. 
SELECT ROUTINE. 
SR _8 - TURN READER LIGHT OFF (PRG13 ONLY 
;SR 7 THROUGH SR 0 - NUMBER OF ROUTINE TO Be SELECTED. 


aap ADDRESSES: 
; PUNCH 


772776-772700 
772676-772600 


UNASSIGNED TRAP 
:SP OVERFLOW, BUS ERROR TRAP 
RESERVED INSTRUCTION TRAP 
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002376 TRCV: ; TRACE TRAP 
000340 P 
IOTV: ; ; TRAP TO CALL [0X 
sPOWER FAIL TRAP 
HAL 
EMTV: EMT TRAP 
PR 


TRPV: ote ; TRAP TRAP. SIMILAR TO EMT. 
SEXIT TRAP CALL. 


-=40 
LOCATIONS 40 THROUGH 776 ARE FILLED WITH .+2 AND HALT. 
eNLIST ME 


«LIST ME 
; EQUATE lad fa he 


; FOR CONTROL REGISTER FOR 11-70 


MANUAL =81T15 
B1T15=100000 
B1T14=40000 
B1T13=20000 


PRTY3=140 
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PRTY2=100 


KEYBOARD VECTOR SETUP. 
; STATUS UPON KEYBOARD INTERRUPT. 


:GO TO START OF PROGRAM. 


RESET INIT SWITCH. 
:GO TO START OF PROGRAM. 


sREADER CSR 
READER BUFFER 
PUNCH CSR 


;PUNCH BUFFER 

sREADER INTERRUPT VECTOR 
;READER PRIORITY LEVEL 
[PUNCH INTERRUPT VECTOR 

PUNCH PRIORITY LEVEL 

zADDR OF 1ST READER. 

:ADDR A 1ST PUNCH. 


zLSR CS 

:LSR BUFFER 

LSP CSR 

:LSP BUFFER 

zLSR INTERRUPT VECTOR 
SLSR PRIORITY LEVEL 


LSP INTERRUPT VECTOR 
LSP PRIORITY LEVEL 


CONTAINS CURRENT PROGRAM# 

; CURRENT PROGRAM START ADDRESS. 
CONTAINS ADDR OF CURRENT TEST. 
CONTAINS CURRENT TEST #. 
CONTAINS ADDR OF NEXT TEST. 


“CONTAINS CURRENT ITERATION COUNT 
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000000 SCOPTR: eae CONTAINS CURRENT SCOPE POINTER. 
000000 ID: ;CONTAINS PROGRAM INDICATORS 
005244 : ;PRGO START ADDRESS 
71 PI 3PRG1 START ADDRESS 
10206 3PRG2 START ADDRESS 


570 
342 
414 
67 
76 


010 
011 
011 
011 
011 


4, . 
2 “PRG7 START ADDRESS 
012034 *PRG10 START ADDRESS 
012156 PRG11 *PRG11 START ADDRESS 
012306 : PRG12 " |PUNCH TEST (OPR INTV.) 
012542 ‘READER LIGH TEST 
*(OPR INTV REQD.) 
CHARACTER COUNT 


;HOLDS ONE CHARACTER FROM READER. 


POINTER 


POINTER 
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POINTER FOR EMT CALL GETBNR 
;POINTER FOR EMT CALL GETBNP 
POINTER FOR EMT CALL DELAY 


SET BOTTOM OF SP STACK. 

SEE IF PROGRAM IS INITIALIZED. 
:BR IF YES. 

TYPE TITLE. 


;TYPE INSTRUCTIONS TO SET RDR O VECTOR. 


177570 MO SR,FSTVCT SAVE RDRO VECTOR. 
; TYPE INSTRUCTIONS TO SET # OF READERS. 


001246 MOVB SR,RDRLIM SAVE # OF READERS. 
;TYPE INSTRUCTIONS TO SET #4 OF PUNCHES. 


001250 MOVB SR,PCHLIM SAVE # OF PUNCHES. 
001252 #1, INITD INITIALIZATION COMPLETE. 
RESTART MESSAGE. 


BR oe 
MOV @44,-(SP)  ;SAVE CONTENTS OF ADDRESS 4 
MO ) SAVE CONTENTS OF ADDRESS 6 
;LOAD FOR TIMEOUT WITH NON CACHE PROCESSOR 
BIS #14, ACHE Jolson ate Ct 
BR ; BRANCH AROUND FOR CACHE PROCESSORS 
(SP)+, ; CLEAN UP THE STACK FOR NON CACHE PROC. 
(SP)+,a#6  ;RESTORE CONTENTS OF 6 
(SP)+, a4 RESTORE CONTENTS OF 4 
177776 #PRTY7, PSW SET PRIORITY 7 
Ag :GO DO CLEAN-UP 
GET PROGRAM NUMBER. 


VALID PROGRAM NUMBER? 
;BR IF YES. 
TYPE INCORRECT PROGRAM MESSAGE. 


RO 
r+ P7760, RO 
RO,#13 
STRTB 


STRTA : TRY AGAIN. 
RO,PRGNUM SAVE PROGRAM NUMBER. 
RO [RO TIMES 
SYSTEM RESET. 
@PRGTAB (0) [GO TO SELECTED PROGRAM. 
; TYPE SR OPTION MESSAGE. 
ASETSR 
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CHALT 
001256 001264 GETRDY: MOV KSTART,NXTST 
340 177776 GTRDYX: MOV APRTY7 .PSW 
001200 MOV #SPBOT ,R6 

SRESET 
002136 GIRDYA: JSR R7,.FORWD 
001000 177570 GITRDYB: BIT #BITS,SR 

BNE GTRDYC 
177304 GORUN: JMP @CURTST 
177570 GTRDYC: MOV R.RO 
177600 BIC #177600,RO 
001262 CMPB —s—RTNNO, 

BEQ GORUN 
177777 001264 GTRDYD: CMP #-1,NXTST 

BNE GTRDYA 

TYPE 

CM3 

CHALT 

BR GETRDY 
001200 CHAINN: MOV #SPBOT .R6 
001266 INC ICNT 

BNE CHNAC 
001266 COM ICNT 
040000 177570 CHNAC: BIT #BIT14,SR 

BEQ CHNA 
177226 CHNAB: JMP @SCOPTR 
004000 177570 CHNA: BIT #B1T11,SR 

BNE CHNAA 
001270 DEC ICTR 

BNE CHNAB 
002000 177570 CHNAA: BIT #B1T10,SR 

BEQ CHNB 
001262 MOV RTNNO,RO 
001000 177570 CHNB: BIT #BIT9,SR 

BNE GETRDY 
177777 001264 CMP #~-1,NXTST 

BNE GTRDYX 

OACNV 

PRGNUM 

TYPE 

APGEND 

BR GETRDY 
001264 FORWD: MOV NXTST,R5 
001262 MOV (5)+,RTNNO 
1264 MOV (5)+,NXTST 
001270 MOV (5)+, ICTR 
001272 MOV (5)+,SCOPTR 
001260 FORWDA: MOV R5,CURTST 
000001 001266 Mov #1, ICNT 


RT 
EMT INTERPRETER ROUTINE. 





nm 


SEQ 0027 


; COMMON HALT. 
ADDR OF 1ST ROUTINE TO NXTST 
3SET PRIORITY 7. 

;SET BOTTOM OF STACK. 


; ISSUE RESET. 

:R ORWARD TO ‘NEXT +» aa 
;CHECK SELECT ROUTINE SwWIT 
BRANCH IF SELECT ROUTINE SWITCH IS SET. 
[GO RUN CURRENT ROUTINE. 

(SR) TO RO 

SMASK UNDESIRED BITS 

;COMPARE RTNNO TO (RO) 

:BR IF ROUTINE FOUND. 

[NO. CHECK FOR LAST ROUTINE. 
BRANCH IF NOT LAST ROUTINE. 
TYPE INCORRECT RTN SELECTED. 


COMMON HALT. 
START OVER. 
SRESTORE STACK. 
ZINCREMENT ITERATION COUNT. 
BR IF RESULT NOT 0. 
ZRESULT 0. RESET ICNT TO -1. 
bg te FOR SCOPE OPTION. 

H IF SCOPE SW NOT SET. 
SRETURN TO ROUTINE. 
;TEST INHIBIT ITERATION SWITCH 
BRANCH IF INHIBIT ITERATION SW SET. 
;DECREMENT ITERATION COUNT. 
BRANCH IF COUNT NOT 0. 
ROUTINE END HALT SW SET? (SR10) 
BRANCH IF NOT SET. 
TEST # TO RO. 
[ROUTINE END HALT. TEST # IN LIGHTS. 
CHECK SELECT ROUTINE SWITCH 
BRANCH IF | SELECT RTN SW SET 


;LAST 
;BRANCH_IF NOT LAST TEST. 
CONVERT PROGRAM NUMBER TO ASCII. 


; TYPE PROGRAM END BELL. 


;GO REPEAT PROGRAM. 
sADDR OF NEXT ne ve Le R5. 
GET NEXT ROUTINE NUMB 
:GET ADDR OF NEXT WET” ROUTINE. 
GET ITERATION COUNT. 
GET SCOPE LOOP ENTRY POINTER 
ADDR OF NOW CURRENT TEST TO CURTST. 
:PRESET ICNT TO 1. 
EXIT FORWD SUBROUTINE. 
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012666 
012737 
000415 


012737 
000403 


012737 
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000002 
171364 


177766 
177766 
000002 


000240 


000002 
177762 
177762 


177762 
177762 


177772 
177772 
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EMTINT: MOV ;PUSH RO. 
MOV :GET EMT PC. 
3 5 2. CALL. 


RO TIMES 

EMTTAB-10000(0), Rd FORM EMT ROUTINE ADDR. 
RTS RO GO TO EMT ROUTINE; RESTORE RO. 
;SAVE REGS 0 TO 
Sv0O3: MOV ( 


sMOVE PC UPSTACK. 
MOV sMOVE STATUS UPSTACK. 
MOV 
BR SV05B 
SUB TO SAVE REGS 0 TO 5 AND PLACE EMT PC IN R5. 
§v05S: MOV #NOP ,, SVOSC 


BR SVO5A 
SAVE REGS ° TO 5. 
MOV 1,SVO5C 
ite 7714. (6) sMOVE PC AND PSW UPSTACK. 
(6) +214. (6) 


RTI OR NOP. 
16. (6) .R5 “EMT PC TO R5. 


e 


-(4) 
sEXIT 
TO 3 SUBROUTINE. 
;RESTORE REGS 0 TO 4. 


;MOVE PC AND PSwW DOWN STACK. 
-10. (6) .-(6) 


I sEXIT 
RS IN EMT PC AND RESTORE REGS 0 TOS. 
V 6) SET EMT PC TO R5 CONTENTS. 
REGS 0 TO 5. 


(6)+,R5 
-14. (6) ,-(6) s;MOVE PC AND PSW DOWNSTACK. 
-14. (6) ,-(6) 


EXIT. 
(6)+,-6(6) sPC AND PSW UPSTACK. 
(6)+,-6(6) 
R5,-(6) SAVE RS. 
R4,-(6) SAVE R4. 


SEQ 0028 





an 
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000002 
013707 
104006 
010400 
000000 
104007 
000002 
005737 
100001 
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000010 
000010 


177772 
177772 


052525 
002/ "$s 
000042 
000100 176516 
176512 000000 
000200 002514 
000003 002514 


000042 


177570 


000406 002716 


000240 002716 
001362 


002714 
000002 002714 


20 PAGE 8 
SEQ 0029 
PUSH2 
MOV 8. (6) ,R5 :EMT PC TO RS. 
MOV R5,R4 ‘EMT PC TO R4. 
TST -(4) 
RTI ZEXIT EMT SUB. 
RSSS: MOV R5,8. (6) *R5 TO EMT PC. 
POPSP2 
MOV (6)+,R4 ZRESTORE R4. 
MOV (6)+.R5 TRESTORE RS. 
MOV -6(6) ,-(6) 
MOV -6(6) .-(6) 
RTI EXIT. 
:ROUTINE TO ISSUE RESET AND ENABLE KEYBOARD INTERRUPTS. 
SRSETT: SAVOS 
MOV #52525,RO :DATA TO RO. 
COM RO S COMPLEMENT (RO). 
MOV RO, SRSETT+4 >(RO) TO SRSETT+4. 
RESET TRESET. RO IS DISPLAYED. 
TST ana2 ;LOADED FROM DECTAPE? 
BEQ SRSETA :BR IF NOT. 
BIS #B1T6,aTKS TENABLE KEYBOARD INTERRUPTS. 
SRSETA: RTI TEXIT. 
sKEYBOARD SERVICE ROUTINE. 
KBSVC: MOV aTKB, #0 :READ KEYBOARD BUFFER. 
BIC WBIT7,KBSVC+4 :CLEAR PARITY BIT 
CMP #3,KBSVC+4 [IS IT CTRL C? 
BEQ +4 ‘BR IF YES. 
RTI :NO. EXIT. 
PC TEXIT TO DECTAPE MONITOR. 


COMMON WALT nourine’ 
CHLT: SAVOSS 


R4,RO ;DEVELOP ADDR OF CALLER. 
HALT HALT CALL ADDR IN DATA LIGTHS. 
RSTOSS 
RTI sEXIT. 
; CONDITIONAL ERROR HALT ROUTINE. 
EHLT: TST SR CHECK FOR HALT ON ERROR. 
BPL EHLTA BRANCH IF NO HALT DESIRED. 
HAL T :HALT 
EHLTA: RTI IN DATA LIGHTS. 
ERR: MOV #406, ERRNB SET UP FOR SINGLE MESSAGE. 
BR ERRN+6 
ERRN: MOV #NOP , ERRNB SET UP_FOR MULTIPLE MESSAGES. 
MOV R4,FPC ;CONVERT CALL ADDR OF SUB CALLING. 
OACNV 
FPC 
~ 
SAV5S sSAVE REG 5S 
MOV R5,ERRB ;DETERMINE CALLING ADDR. 
SUB #2,ERRB 
OACNV CONVERT CALLING ADDR TO ASCII. 
ee 


a 
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; CONVERT PROGRAM # TO ASCII. 
; CONVERT TEST # TO ASCII. 
;CONVERT ICNT TO DECIMAL ASCII. 


5 
015021 002714 MO #EMO,ERRB ; TYPE ERR HEADER MSG IF NOT INHIBITED. 
020000 177570 ERRNA: #B1T13,SR ; INHIBIT ERR PRINT? 
BN ERRNB 4m en + pa 
ERRB: ;DESIRED MSG ADDR GOES HERE. 
ERRNB: NOP OR 406 
002714 (5)+, ERRB GET ADDR OF NEXT MSG. 
177777 +=002714 #-1,ERRB ; TERMINATOR? 
BN ERRNA :GO TYPE IF NOT TERMINATOR. 
ERRNC : sEND OF MSGS. HALT IF REQUIRED. 
R RESTORE Bas 5S. 


RTI EXIT EMT SUB. 
; SUBROUTINE TO OUTPUT ASCII MESSAGE ON TELETYPE PRINTER. 
TYP: SAVO5S 


;ADDRESS OF MESSAGE TO RO. 
TYPA: GET CHARACTER 


000100 : > CHECK FOR 2 a CHARAC TER 
PC ‘BRANCH IF NOT’ ‘a''. 


: TERMINATOR mm. DONE. EXIT. 
000045 TYPC: 


: BRAN ANCH 
002776 ; TYPE CHAR IN R1 
TYPA 


BR 
176230 TYPD: ; OUTPUT ee TO PRINTER 
176222 [WAIT FOR DONE FLAG. 


R sEXIT 
000015 TYPF : s;MOVE CARRIAGE RETURN CODE TO R1 
002776 :GO TYPE CHAR. 
000012 TYPG: ‘i :MOVE LF et TO R1. 
002776 p :GO TYPE CHAR 


BR TYPA 
ee er OUTPUT A SERIES OF ASCII MESSAGES ON TELETYPE PRINTER 
YPS: V 


003060 (5)+,TYPSB ADDR OF MESSAGE TO TYPSB. 
177777 003060 #-1,TYPSB CHECK FOR TERMINATOR 
BRANCH IF NOT TERMINATOR. 


; TERMINATOR, EXIT 
TYPSA: ;CALL_ON TYP SUB TO TYPE MESSAGE 
TYPSB: sADDRESS OF MESSAGE GOES HERE 
BR YPS+2 3;GO PROCESS NEXT MESSAGE 
; SUBROUTINE TO DELAY A SPECIFIED NUMBER OF MILLISECONDS 
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011637 003124 DLYN: (6) ,DLCNT ;GET EMT PC. 

062716 000002 #2,(6) ;SET UP EXIT PC. 
7SAVE REGS 

000022 MO ten RO ss COUNT TO RO. 


000303 DLYAN: 71 MSEC COUNT TO R1. 
DLYBN: R1 [DECREMENT 1 MSEC COUNT. 
BN BR IF NOT 0. 
;DECREMENT DELAY COUNT. 
BR IF NOT DONE DELAYING. 


sEXIT. 


DLYCN: 


+pyk 
DLCTR: OPEN 
: SUBROUTINE TO INITIALIZE BINARY COUNT PATTERNS 
177777 INBINN: MOV #~1,RIND SET ALL VARIABLES 
V RIND ,PIND 
RIND ,PTO 
RIND.PT1 
003206 RIND,RTO 
003210 RIND,RT1 


BINP: OPEN 
; SPECIAL BINARY COUNT PATTERN SUBROUTINE (PUNCH) 
003204 GTBINP: nae ai PT1 ;PREVIOUS BIN CHAR TO PT1 


SAVE BIN CHAR “f PTO 
[BIN CHAR TO BINP 
PT1.PCHOUT 


RTI sEXIT 
;SPECIAL BINARY COUNT PATTERN SUBROUTINE (READER) 
003210 GTBINR: a4 $i al ;PREVIOUS BIN CHAR TO RT1. 


RIND 
+6 


RT1 
003210 RDRMSK ,RT1 
003206 RT1,RTO :SAVE BIN CHAR IN RTO. 
003212 RT1.BINR :BIN CHAR TO BINR 


RTI XIT. 
;EMT SUB TO CONVERT OCTAL TO ASCII. 
OACNVV: SAVO5S SAVE REGS. 
MO a(5)+,RO ;GET OCTAL VALUE. 
(5)+,R1 GET DESTINATION ADDR. 
012502 (5)+,R2 GET CONVERT COUNT. 
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177770 
000060 


000007 


003520 


003574 
003576 


003574 
003576 


000060 
003574 


003572 


003574 
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A 
OACNVA: 
B 


BDCNVV 


BDCNVA: 


BDCNVB: 
BDCNVC: 


MOV 
MOV 
MOV 
MOVB 
DEC 


BNE 
RSTOSS 
RT 


BDCNVD: OPE 


SUBTEN: 
SUBTNA: 


SUBTNB: 


CNVCTR: 
DIGIT: 
TENPWR: 


ADTENP: 


M+, (2)+ 
BMOVA 


I ;DONE. 
:EMT yg aa BINARY TO DECIMAL ASCII. 


ADECVAL ,RO 
a(5)+, Ri 
(5)+ .BDCNVC 
(5)+,BDCNVD 
#ADTENP ,R2 
#5, CNVCTR 
(25+, TENPWR 
R7,SUBTEN 
CNVCTR 
BDCNVA 
BDCNVD ,RO 
RO, BDCNVB 


#60,DIGIT 
DIGIT, (0)+ 
R7 


;DEVELOP ADDR TO STORE 1ST CHAR. 


; ISOLATE LEAST SIGNIFICANT DIGIT. 
;CONVERT DIGIT TO ASCII. 
STORE ASCII CHARACTER. 


;DONE ALL DIGITS? 
[BRANCH IF NOT DONE. 
RESTORE REGS. 
RTI ;DONE. EXIT. 
7 EMT _ TO MOVE VARIABLE NUMBER’ OF F nak 
BMOVV: SAVOSS 


sSAVE R 
3GET’ FROM ADDRESS 
;GET’ ‘TO’ ADDRESS 
[GET COUNT 
sMOVE BYTE 
sDECREMENT COUNT 
BRANCH IF NOT DONE. 
sRESTORE REGS. 

E. EXIT. 


AVE REGS. 
SET UP ADDR TO STORE DECIMAL ASCII IN RO 
BINARY VALUE TO R1. 
DESTINATION ADDR TO BDCNVC. 
;CHAR COUNT TO BDCNVD. 
ZADDR OF TEN POWER STRING TO R2. 
:SET UP FOR 5 POWER CONVERSIONS. 
;MOVE POWER OF TEN VALUE TO TENPWR. 


;DONE 5 CONVERSIONS? 
;BRANCH IF NOT YET 5. 


RESTORE REGS. 

:YES. EXIT. 

CLEAR DIGIT 

; SUBTRACT TEN POWER FROM BINARY VALUE. 
BRANCH IF UNSUCCESSFUL SUBTRACTION. 


RESTORE SUBTRACTED VALUE. 
CONVERT (DIGIT) TO ASCII 
ay ASCII CHAR TO DECVAL FIELD. 


SEQ 0032 
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040 
040 


003672 


003674 
003672 


003674 


003674 
003672 


012737 001233 
012737 007622 
000002 


105277 175260 
104031 


175250 


175236 


175220 


003772 


017637 
062716 
013701 


1 
DECVAL: .BYTE 040,040,040,040,040,040 


;EMT RANDOM NUMBER GENERATOR. NUMBER IS STORED AT LOC AFTER SUB CALL. 
RNGEN: SAVO5S 


RP1,RO 
RO 


RO 
RP2,RO 
RO,RP1 
RO 


RO 
RO 


RO 
RO,RP2 
RP1,(5)+ ;STORE # AT LOC AFTER SUB CALL. 


sEXIT. 
RP1: 
RP2: 622 
3EMT SUB TO INITIALIZE RANDOM NUMBER GENERATOR. 
003672 INRNDN: MOV #1233,RP1 
003674 MOV #7622 ,RP2 oust 


READER E 


RTI 
;ROUTINE TO FETCH A CHARACTER 
AREAD: INCB @PRS NABLE. 
7 WAIT 12 MSECS FOR READER DONE. 
DONE SET? 
:BR IF YES. 
WAIT ADDT'L 18 MSECS. 


READER DONE NOW? 
BR IF YES. 
ERROR. NO READER RESPONSE. 


ZTRY AGAIN. 

TERROR BIT SET? 

‘BR if YES. 

NO. EXIT 

s TYPE READER ERROR MESSAGE. 
s TRY AGAIN. 


TYPE READER ERROR MESSAGE. 


RTS %7 sEXIT 
ROUTINE TO SET READER INTERRUPT VECTOR AND PRIORITY 
004024 §STPTRV: MOV a(6),STPRA+2  ;MOVE VECTOR ADDR TO STPRA+2 
ADD #2 ake ‘SET UP EXIT 
MOV RDAVTR,%1 


SEQ 0033 
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012721 000000 STPRA: MOV OPEN, (1)+ ;SET VECTOR ADDRESS 
ABIES 001212 MOV RDRLVL.(1)+ [SET PRIORITY 


RTI sEXIT 
ROUTINE TO PUNCH INTERRUPT VECTOR AND PRIORIT 
017637 000000 004054 STPTPV: MOV a(6) ,STPPA+2 sMOVE yee ADDR r0 STPPA+2 
ADD aatk 21 SET UP EXIT 


MOV 
STPPA: MOV #OPEN, (1)+ ;SET VECTOR ADDRESS. 
ort PCHLVL,(1)+ FR asap 


RTI sEXI 
; SUBROUT INE 7 READ CHARACTER FROM READER USING INTERRUPT. 
BREAD: SET READER VECTOR 
E ;TO BREADB 
175102 #101,aPRS SENABLE PTR AND PTRI. 
PSW SET UP 


PRTYO. 
072460 004210 #30000.,BRCTR ;DELAY APPROX. 150 MSECS. 
004210 we 0 


175056 CL aPRS ;CLEAR PTRI ENABLE. 
dhe B. PTR RESPONSE 


BR BREAD AGAIN 
175042 : @PRS ‘CLEAR READER CSR. 
175040 001334 MO @PRB , CRBUF CHAR READ TO CRBUF. 
x7 EXIT SUBROUTINE . 

: RESTORE STACK. 
000340 177776 MOV #PRTY7 ,PSW :SET UP PRTY7. 
175016 aPRS TEST FOR ERROR. 

;BRANCH IF NO ERROR. 

003772 : 


BR BR : 
175002 3 TEST FOR DONE BIT. 
BM BRANCH IF DONE BIT SET. 
;ERROR.FALSE READER INTERRUPT. 


San 


CTR: OPEN 
; SUBROUTINE TO STALL A RANDOM NUMBER OF MILLISECONDS. MAXIMUM STALL 
“gag A CONTENTS OF LOC STLMSK. 


STLA: : 

STLMSK,STLA ;APPLY STALL MASK. 

STAL ;BRANCH IF RESULT IS 0. 
STLA,STALA 


DELAY 
;DELAY COUNT 
;DONE. EXIT. 


[STALL MASK. 
GENERATE RANDOM CHARACTER COUNT (1-77) 
:GET RANDOM NUMBER. 


;NUMBER GOES HERE. 
004246 anne GRCNTA SAPPLY MASK. 
GRCNT :TRY AGAIN IF RESULT 0 
013737 004272 GRCNTA,RNCNT [COUNT TO RNCNT 
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000207 RTS %7 sEXIT. 
000000 OPEN ;RANDOM CHARACTER MASK. 


OPEN ;RANDOM CHARACTER COUNT. 
COMPARE DATA READ FROM READER AGAINST EXPECTED DATA AND REPORT ERRORS. 
ET ;GET BIN CHARACTER 


: CT 
003212 001334 C ;COMPARE BINR TO DATA IN CRBUF 
+4 BRANCH IF NOT SAME (ERROR). 
sOK.EXIT. 


001344 ;DECREMENT ERROR COUNTER 
E +6 [BRANCH IF NO THIRD ERROR 
004352 se e-BSYNC ad tes THE READER. 


RTS 3EXI 
; SUBROUTINE TO SYNC THE READER TO A SPECIAL BINARY COUNT PATTERN TEST TAPE. 
BSYNC: — oy cae BINARY PATTERN 


READ CHAR. 
;READ CHAR AND STORE AT CHR1 


;READ CHAR AND STORE AT CHR2 
;READ CHAR AND STORE AT CHR3. 


:GO SYNC 
zNO SYNC. TRY AGAIN. 


sSUCCESS.EXIT. 
#512. ,RO0 SET UP tak 512 TRIES. 


001336 
001340 
001342 


001344 #3,ERCTR 
%7 


“MATCH ON 1ST WORD? 
BR IF NOT. 

MATCH ON_ nD WORD? 
[MATCH ON 3RD WORD? 
“BR IF NOT. 

:SET UP SINCED EXIT. 
‘TRIED 512 TIMES? 
“BR IF 


SEQ 0035 
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ERRORN YES. SYNC ERROR. 
EM3 


-1 
RSTOS 

PC SYNC ERROR EXIT. 

: SUBROUTINE TO CHECK FOR PUNCH READY. 

174440 CPR Ist “apps ;TEST FOR ERROR BIT. 


174432 


= pg st iv READY NOT SET. 
CPRDYA: Mi STYPE NOT READY MESSAGE. 
Ss 


BR CPR 
het yale TO PUNCH CHARACTER IN LOC PCHOUT. 
HSPCH: JSR %7,CPRDY 3GO CHECK FOR PUNCH READY. 
001332 BIC PCHMSK , PCHOUT 
174374 MOV PCHOUT ,@PPB ;LOAD PUNCH BUFFER. 
a —— sWAIT FOR DONE. 


RTS %7 DONE. EXIT. 
; SUBROUTINE TO SELECT PUNCH TO Be TESTED/USED. 
PCHSEL: Mad TYPE SELECT PUNCH MESSAGE. 


;WAIT FOR USER. 
177570 SR,PCHLIM :VALID P PUNCH NUMBER? 


IF YES. 
NO. TYPE MESSAGE, AND 


BR ;GO TRY AGAIN. 
177570 PCHSLA: ;DEVELOP PCH CSR ADDR. 


PPS 
FSTPCH,PPS 
PPS ,PPB ;DEVELOP PCH BUFFER ADDR. 


#2,PPB 
RDRLIM,PCHVTR ;DEVELOP PCH VECTOR ADDR. 
PCHVTR :1F RDRLIM WAS ODD INCR TO MAKE IT EVEN. 


PCHV 
SR,PCHVTR 
PCHVTR 
PCHVTR 
1214 FSTVCT ,PCHVTR 
001346 #177400,PCHMSK ;SET UP PUNCH oo FOR 8 LEVEL. 
177570 SR :8 Lsyet PUNCH? 


PCHSLB : YES. 
177700 001346 MO #177700,PCHMSK ;NO. SET UP 6 LEVEL MASK. 
PCHSLB: = ; CONVERT SELECTED PCH NUMBER TO ASCII. 


015670 
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TYPE ; TYPE PCH SELECTED MESSAGE. 
ee 


PC sEXI 
; SUBROUTINE TO SELECT READER TO BE TESTED/USED. 
RDRSEL : pia ; TYPE SELECT READER MESSAGE. 


WAIT FOR USER. 
177570 001246 MPB SR,RDRLIM “VALID READER? 
RDRSLA ;BR IF YES. 
NO. TYPE MESSAGE AND TRY AGAIN. 


BR RDRSEL 
177570 RDRSLA: SR,PRS ;DEVELOP RDR CSR ADDR. 
001200 A PRS 


PRS 
FSTRDR,PRS 
PRS ,PRB ;DEVELOP READER BUFFER ADDR. 


#2,PRB 
SR,RDRVTR ;DEVELOP RDR VECTOR ADDR. 
RDRVTR 
RDRVTR 
FSTVCT,RDRVTR 
001350 #177400,RDRMSK ;SET UP 8LEVEL READER MASK. 
177570 SR :8 at READER? 


RDRSLB YES. 
177700 001350 MOV #177700,RDRMSK ;NO. SET UP 6 LEVEL 
RDRSLB: “ CONVERT SELECTED ROR NUMBER TO ASCII. 


TYPE RDR SELECTED MESSAGE. 


sEXIT. 

CLEAR ITERATION COUNT. 

:CLEAR CURRENT ROUTINE NUMBER. 
:SET ERROR COUNT TO 3. 

:CLEAR INTERRUPT VECTORS. 


BR 
CLNUPB: RTS 


SEQ 0037 
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:PRGO = READER TESTS 
177777 X==1 


y=0 
005266 001256 PRGO: #POTO,KSTART sADDR OF 1ST ROUTINE TO KSTART. 
TYPE TYPE TITLE. 


005020 JS PC,RDRSEL a0 GET READER. 

001700 SR SET ;GO GET STARTED. 
POA,1000. 

POA, 1000. ,\X+1,\X+2,\Y 

PRR le hehehehe hehehehehe lahelalehehahahehahahahehehelelehehehalehehalaielslehshehehsheheheiehsislelaiaiaheheleieleleleleleleieleieieieieieleielel 

; PRGO ROUTINE 0 * 

* ADDRESS OF NEXT ROUTINE * 
S TEST ITERATION COUNT * 
:SCOPE ENTRY POINT * 


FAO RIOCRICTORIOIORIOIOICIIOIOR IOUT OI IRR AITIA AIA IIAIISIIISAIS ASAI IAAI SASS SAI ACACIA SIA 
[TEST ABILITY TO REFERENCE THE READER STATUS WORD 
012737 005312 000004 MOV #POAE ,MACHER ;SET UP MACHINE ERROR TRAP. 
eg hd 173670 POAA: @PRS fh ng READER STATUS WORD. 


04000 S : 
104015 POAE : s;ERROR. TRAPPED WHEN REFERENCING READER 
104000 SCOPE STATUS WORD (PRS). 


P0B,1000. 
POB, 1000. ,\X#1,\x#2,\Y 
LR RRR ERR EE EERE EEE EEE EH 
000001 : ; PRGO ROUTINE 1 . 
005346 ADDRESS OF NEXT ROUTINE + 
001750 *TEST ITERATION COUNT * 
ebten —_ SCOPE ENTRY POINT . 


saneiiihanenateiinditeinanbicnbelilieadiaintninihaamenemtieeneniapeane 
[TEST ABILITY TO REFERENCE THE READER BUFFER. 

012737 MOV #POBB ,MACHER 7SET UP MACHINE ERROR TRAP. 

005777 173642 POBA: @PRB :REF ERENCE READER BUFFER 


POBB : ERROR. TRAPPED WHEN REFERENCING 
TREADER BUFFER. (PRB) 


000. 
POD; 1000. .\X+1.\X+2,\Y 
PSOE ICICI IOI INICIO III IOI IOUT OIOTOIOI IOI TOTTI TTI I 
3 PRGO ROUTINE 2 * 
ADDRESS OF NEXT ROUTINE * 
7 TEST ITERATION COUNT * 
:SCOPE ENTRY POINT * 


ICIS IDI III IICIISISISIISISIOIIIOIOIIIOIOIOICIIOIIIOIOIOIOIOIIIOIIOIOI OID TOOT TOIT IDI TOIT TIT I TE 
;TEST ABILITY TO SET AND CLEAR THE ID BIT (INTERRUPT ENABLE (BIT 6)) 
: IN READER STATUS WORD 
00 173614 PODA: BIS #2 *>16,aPRS :SET ID BIT (BIT 4 Pa READER PRS 
100 173606 BIT wile, @PRS : CHECK ID BIT IN 
BNE PODB T SET? 


052777 0001 
032777 000 


001002 BIT SE 
104015 ERROR ZNO. —s FAILED TO SET ID BIT (BIT 6) 


104000 SCOPE 
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042777 000100 173572 PODB: #B1T6,aPRS 
ore 000100 173564 BI si Wpsagcetine 


104015 
104000 


POE,100. 
POE,100. ,\X+1,\X+#2,\Y 
Fee aE re EEL Lab ta talalatstelatl-tlalahlallallalohiablaiealehiahiaieie 
000003 : ; PRGO ROUTINE 3 * 
005456 POT4 SADDRESS OF NEXT ROUTINE * 
000144 STEST ITERATION COUNT * 
005432 :SCOPE ENTRY POINT * 
000003 
I RO ICR IOC RICIOIORCIOIOIIOIIOIOIIOR IOI III TOR RAIA IAA IAIAISASIISISASSSS ASSIS ASIA IAASAS SAA 
ioete ABILITY TO CLEAR ID BIT (BIT 6) WITH RESET INSTRUCTION 
052777 000100 173540 POEA BIS #B1T6,aPRS 6 St T ID BIT IN PRS 
104001 S ;RESET 


000100 173530 BIT #B1T6,aPRS STEST ID BIT 
+4 7BRANCH IF ID BIT IS CLEAR 
sry RESET INSTRUCTION FAILED TO 
CLEAR ID BIT IN READER PRS. 
POF ,100. 


POF ,100. ,\X+1,\X+2,\Y 
 RREERRERRERRERREREAEREEREERRERREERRERERERERERRRERREERERRERERRERERE EERE ERE 
; PRGO ROUTINE 4 * 
ZADDRESS OF NEXT ROUTINE 7 
;TEST ITERATION COUNT * 
: SCOPE ENTRY POINT * 


sSelenhbesocnsespuneneshapensanatataduanshiannbesabeiennntnianhaneneds 
TEST THAT DONE BIT (BIT 7 OF PRS) IS SET one ‘es THAN 100 MSECS AFTER RDR ENB. 
173506 POFA INC @PRS ENABLE READ 
och AY WAIT APPROX” 100 MILLISECS. 


173476 TSTB @PRS TEST FOR DONE (BIT 7) 
BMI POFB ;BRANCH IF DONE BIT WAS SET.. 
ERROR ERROR, 100 MSECS AFTER READER 
ENABLE, DONE BIT WAS NOT SET. 
POFB: SCOPE ; SCOPE 
TSTA POG,1000. 
TSTAA =POG,1000. ,\X+1,\X+2,\Y 
FOI II ICICI OIRO ITI OIIIOI TIER TROT TOIT OTTO TT TTT A IIIA SISA SISA SISA SII A. 
; PRGO ROUTINE 5 * 
TADDRESS OF NEXT ROUTINE * 
7; TEST ITERATION COUNT * 
:SCOPE ENTRY POINT * 


FCRIII IOROSCIOIOICIIOICRIIOIOIOTOIOI IOI TOT TOTS III IASI IAAI SII IASI ISS IASASIIS IASI SASI ISSA M. 
:TEST ABILITY TO READ DONE BIT (BIT 7 OF PRS) RELI 
173454 POGA: —_INC aPRS ENABLE READER 
[WAIT APPROX 100 MILLISECS 


100. 
173444 :TEST ws BIT (BIT 7 OF PRS) 
BMI 4 BRANCH DONE BIT SET 
ERROR. DONE BIT NOT SET, OR FAILED 
:TO READ IT. 


SEQ 0039 
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000062 
105777 
100005 
000005 
105777 
100403 
104000 
104015 
104000 
104015 
104000 


100375 
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jARARRRERRNRERERER RARER EERE R OREN ER RARER ERR E REN ER RE RARER RR REN ERR ARETE TEES 


PRGO ROUTINE 6 ® 
ZADDRESS OF NEXT ROUTINE * 
TEST ITERATION COUNT * 
:SCOPE ENTRY POINT * 


SRE KEE KEKE EERE EEE REE REE KH 


DONE BIT aie 7 OF PRS) 
ENABLE READER 
[DELAY APPROX 50 MILLISECONDS 


: TEST FOR DONE BIT 
BRANCH IF DONE BIT NOT SET 


sRESET 
STEST DONE BIT 
;BRANCH IF DONE BIT STILL SET. 


SCOPE 
sERROR 1. DONE BIT NOT SET. 


ERROR 2. DONE BIT NOT RESET BY 
RESET INSTRUCTION. 


FI II TI I IK RR RIE RRR E KEKE 


; PRGO ROUTINE 7 * 
ADDRESS OF NEXT ROUTINE * 
TEST ITERATION COUNT * 
:SCOPE ENTRY POINT * 


FIT RIT RIK ERR RE RRR REE REE ERE EERE EER EERE REE 


iotee THAT DONE BIT (BIT 7 OF ~_ ve CLEARED WHEN ENABLING THE READER 


ENABLE READER 
: TEST FOR DON 


AGAIN 
;BRANCH IF DONE BIT IS RESET 
ar ENABLE DID NOT CLEAR DONE BIT 


ISIC IOS SIOI IOI IOISIUOIIUICI IOI SISO IOIOISOIIOIOISIDIOI TOI IDOI IOI OTITIS Tt 


; PRGO ROUTINE 10 * 
ADDRESS OF NEXT ROUTINE * 
STEST ITERATION COUNT * 
SCOPE ENTRY POINT * 


DEAR ERRRKERREKEREEEEREEREERREREREREKEEEEERKEEEEEREEREEEEER EERE EEK 


TEST wai aie oa CLEARED BY REFERENCING READER BUFFER (PRB) 


ENABLE READER 
TEST FOR DONE 


12:38 
TSTA POH,100. 
TSTAA POH, 10C. ,\KX#1,\K+2,\Y 
POT6: 6 
POT7 
100. 
POHA 
X=X+1 
; TEST THAT RESET COMMAND CLEARS 
173422 POHA: INC @PRS 
DELAY 
50. 
173412 TSTB @PRS 
L POHB 
RESET 
173402 TSTB @aPRS 
BMI POHC 
SCOPE 
POHB: ERROR 
SCOPE 
POHC: ERROR 
SCOPE 
TSTA POI,100. 
TSTAA POI, 100. ,\X+1, \x+2,\Y 
POT?: 7 
POT10 
100. 
POIA 
X=X+1 
SRESET 
173350 INC @PRS 
173344 TSTB @PRS 
BPL 74 
173336 INC @PRS 
173332 TSTB @PRS 
L +4 
ERROR 
SCOPE 
TSTA POJ,100. 
TSTAA POJ,100.,\X+1,\X+2,\Y 
POT10: 10 
POT11 
100. 
POJA 
X=X+1 
173310 POJA: 
173304 TSTB @PRS 
BPL 274 
173300 TST @PRB 


BRANCH IF DONE BIT NOT SET. 
SREFERENCE READER BUFFER (PRB) 


SEQ 0040 
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; TEST FOR DONE BIT 
+4 ZBRANCH IF DONE BIT IS CLEAR. 
;ERROR 1. DONE BIT WAS NOT CLEARED 
POM. 100 7BY REFERENCING READER BUFFER. 


STA -100. 
TSTAA = POM, 100. , \X#1, \X#2,.\Y 
ASSESS SISISUIISIIOISIOIOISISIOISISSIIDOISIIIUIIDI IIDC IOIOIOIDIOITISIDIIIITIIOIDITI IDI IIIT III IE 
; PRGO ROUTINE 11 * 
[ADDRESS OF NEXT ROUTINE * 
;TEST ITERATION COUNT * 
[SCOPE ENTRY POINT . 


Seek Sante te te Ba arn ALA. 2 
; TEST ABILITY TO READ READER BUFFER RELIABLY 
POMA: MOV #100. ,%0 ;SET COUNT TO 100 IN RO 
:GET CHARACTER 
= C (PRB) TO CHR1 
POMB : 


; HR. 
BRANCH IF R1 AND RO DON'T MATCH 


: SCOPE 
;CORRECT 1ST READ DATA TO ASCII 


;ERROR. REREAD OF PRB DID NOT MATCH 
; INITIAL DATA READ FROM PRB. 


00. 
PON, 100. ,\X+1,\X+2,\Y 
TTT TTI TITTLE TITTLE T ELLE ELLE ELLE LLL Liiibdicks 
; PRGO ROUTINE 12 * 
zADDRESS OF NEXT ROUTINE * 
:TEST ITERATION COUNT * 
:SCOPE ENTRY POINT * 


FREER RRR EEE EKER EEK EEE REE ERE EERE EERE REE REE EERE ERE EERE ERK EER 


:TEST THAT READER BUFFER (PRB) IS CLEARED BY READER ENABLE 
PONA: RESET ET 


sRES 
%7 ,AREAD GET CHARACTER 
aPRB TEST CONTENTS OF READER BUFFER. 
:GO GET ANOUTHER CHAR IF 0. 
;NOT 0. ENABLE READER 
CHECK PRB 


BRANCH IF PRB IS RESET 
ERROR. PRB NOT RESET BY READER ENABLE. 


P0O,100. 
P0OO,100. ,\X+1,\Xi2,\Y 





aa 
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SRR RR RRR ICICI ICICI RICCO SOIT IIIT IAI IIIA SIASASSASIISSSISSSSSISSSSSISSAS 
006060 00001 POT13: 13 ; PRGO ROUTINE 13 * 
006062 POT14 ;ADDRESS OF NEXT ROUTINE * 
100. ;TEST ITERATION COUNT * 
wee :SCOPE ENTRY POINT * 
X=X+ 
LAA REE EERE EEE EERE RRR ERE EERE ERE KERR REE ER 
TEST THAT READER IS ABLE TO INTERRUPT. IF INTERRUPT IS SERVICED, IT WILL 
HAVE nag AS AT CORRECT VECTOR. 
STRDRV ;SET UP READER INTERRUPT VECTOR 


177776 + POOA: ;SET PROCESSOR PRIORITY TO 0 
173070 ;DISABLE READER INTERRUPT. 

D :GO READ CHARACTER. 
173056 ae #BiT6,aPRS a READER INTERRUPT. 


:NO 
; ZERROR. READER FAILED TO INTERRUPT. 
POOB : COPE : SCOPE 


100. 
POP; 100. .\X+1,\X#2,\Y 
IIIT TTT ITT LITT TTT TTT TTT TILL TLL LLL LLL iiiiiiiidihidce 
; PRGO ROUTINE 14 . 
TADDRESS OF NEXT ROUTINE . 
TEST ITERATION COUNT . 
[SCOPE ENTRY POINT ® 


SRE KEKE EEE EEK KEE REEEKEEEEEKKKEEEREKEREKEEKEEKKEEREKEKKK 


[TEST THAT READER DOES NOT INTERRUPT WITH PROCESSOR AT SAME PRIORITY 
;LEVEL AS READER. 
STRDRV SET UP READER INTERRUPT VECTC’ 


Pp 
001212 177776 POPA: RDRLVL ,PSW 2SET PROCESSOR PRIORITY SAME AS READER PRIORITY. 
2 C @aPRS DISABLE wee INTERRUPT. 
%7 ,AREAD “60 READ A CHARACTER. 
173010 #B1T6,aPRS ;ENABLE READER INTERRUPT. 
NOP :0K IF NO INTERRUPT OCCURS. 
173002 @aPRS Scope READER INTERRUPT. 


oP 
RROR. READER ERRONEOUSLY INTERRUPTED 
SWITH PROCESSOR AT SAME PRIORITY LEVEL AS 
[THE READER, OR THE READER IS AT HIGHER 
[PRIORITY LEVEL THAN SPECIFIED AT RDRLVL. 
STA POQ, 100. 
TSTAA P0Q. 100. ,\X+1, \X#2, \Y 
DRE RRR REE KEE EEE REE REE EEE REE EEE REE EERE KEE 
; PRGO ROUTINE 15 . 
ADDRESS OF NEXT ROUTINE . 
STEST ITERATION COUNT * 
:SCOPE ENTRY POINT . 


SAKE REE EEEEEEKEEEEKEEEEEREEKEREEKEEKEKEEEEKEEER TEER EEEKEKEREE 


TEST THAT READER INTERRUPTS WITH PROCESSOR AT PRIORITY 1 LEVEL LOWER 
; THAN READER'S 
STRDRV SET UP READER INTERRUPT VECTOR 
006260 POQB 
013737 001212 177776 POQA: MOV RDRLVL .PSW SET PROCESSOR PRIORITY ONE LEVEL LOWER 





——— 
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162737 000040 177776 UB #40 ,PSW ; THAN READER PRIORITY 
000100 172736 ;DISABLE READER INTERRUPT 
003714 %7 ,AREAD 3;GO READ A CHARACTER. 
000100 172724 at. #B1T6,aPRS ; ENABLE READER INTERRUPT 


“READER FAILED TO INTERRUPT WITH 

PROCESSOR PRIORITY ONE LEVEL LOWER THAN 

READER. THEREFORE, READER PRIORITY MUST BE 
POQB: COPE ;LOWER THAN SPECIFIED AT RDRLVL 


00. 
TSTAA POR, 100. , \X#1, \X#2, \Y 
SG ICICI ICICI ICICI CIOS III IOI ITI DITTO TOIT IIIT TTI TI ITT TI IIE 
; PRGO ROUTINE 16 * 
;ADDRESS OF NEXT ROUTINE * 
;TEST ITERATION COUNT * 
:SCOPE ENTRY POINT * 


OI IOI IOI SIIOIIOICIOIOI IDIOT ITO IOI TOT I TOT TOT TOT TAI AIAN SASIASANSASSSSISSSASAS AN 
TEST THAT READER DOES NOT REINTERRUPT AFTER RTI WHEN DONE BIT IS NOT CLEARED 
PORA TRDRV ;SET READER INTERRUPT VECTOR 


000000 177776 #PRTYO,PsW SET PROCESSOR TO PRIORITY 0 
172670 aPRS ;DISABLE READER INTERRUPT. 
003714 %7,,AREAD ;GO READ A CHARACTER. 

000100 172656 #B1T6,aPRS TENABLE READER INTERRUPT 


ene 1. READER FAILED TO INTERRUPT 
006350 172652 PORC: #PORE.,@RDRVTR CHANGE INTERRUPT VECTOR TO PORE 


006344 #PORD ,a%6 
sRETURN FROM INTERRUPT 
PORD: 


PORE : ERROR 2. READER REINTERRUPTED AFTER 
pos. RTI WITH DONE BIT LEFT ON 


1000. 
POS. 1000. .\X+1.\X+2,\¥ 
SISO CII ICICI ROR ICICI III IRI TIER TTI I TTI TTT TOTTI TT TOIT TSR SOT SAA SIS IS SAA 
3; PRGO ROUTINE 17 
ADDRESS OF NEXT ROUTINE 
TEST ITERATION COUNT 
:SCOPE ENTRY POINT 


DRE RRR ERE EEE REE REE REE EERE EEE EEREKEEKEEEEEKREEKKEEEER EEE 


STEST THAT — INTERRUPTS IMMEDIATELY UPON LOWERING CP PRIORITY TO O. 
STRD ;SET READER INTERRUPT VECTOR TO 


Pp 
172604 POSA: @PRS :DISABLE PTRI. 
003714 J %7,AREAD READ A CHARACTER. 
000100 172572 #B1T6,aPRS ENABLE PTRI 
177776 PSW LOWER PRIORITY TO 0. 
000340 177776 MOV #PRTY7,PSW RAISE PRIORITY BACK 


TO 7. 
ERROR. READER rei ee TO ‘co. IMMEDIATELY 


SAFTER LOWERING PRIORITY TO 
; INTERRUPTS TO HERE IF SUCCESSFUL. 
POT,10000. 
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TSTAA =POT, 10000. ,\X+1,\X+2,\Y 
DRIES ISISIOIDIOIOIDISISIDIOIOUIEISIOISISIOIIOIOIOIOISIOIOIIOI TOI TIO TOT TOT TO TOT TOT TOT TTT TOT TOT TTT IT 
000020 : 3 PRGO ROUTINE 20 * 
00645 0 ;ADDRESS OF NEXT ROUTINE * 
TEST ITERATION COUNT ® 
:SCOPE ENTRY POINT * 


PTTTITIITILITTITTTTTITT TTT TTL LiL LLL Lkkiiiice 
[READ AND CHECK 10000 CHARACTERS OF SPECIAL BINARY COUNT dls ty FULL SPEED. 
J %7,.BSYNC SYNC READER; SET ERROR COUNTER 
POTA: %7 ,BREAD [GO READ CHARACTER 
J %7 .BCHE CK 1 aig CHARACTER READ. 


POU, 500. 
POU. 500. ,\X+1,\X+2, \Y 
FR ala tale lalleiaetablahatabaebabahbobabeaioielpt-tlnsohlob teil ialohbohlalohiahialehiaibaiehiabaieh 
PRGO ROUTINE 21 : 
SADDRESS OF NEXT ROUTINE * 
TEST ITERATION COUNT . 
SCOPE ENTRY POINT * 


IOI IORI IOICISIOR OIRO TORII TOI IOI IOI IOI TOT TOT ITA IAA IAIAISAISASISASASSAS SSA SAA. 
;READ AND CHECK 500 CHARACTERS OF SPECIAL BINARY COUNT PATTERN. 
;RANDOM STALL BETWEEN CHARACTERS (0 TO 7 MSECS). 
012737 177770 004242 MOV #177770,STLMSK 
004737 004352 %7,,BSYNC SYNC READER; SET ERROR COUNTER 
PQUA: L RANDOM STALL (0 TO 7 MSECS) 
004064 %7 ,BREAD 3GO READ CHARACT 


CTER 
*004274 %7 ,BCHECK £60 CHECK CHARACTER READ 


SCOPE 
TSTA._—- POV, 1000. 
TSTAA POV, 1000. ,\X#1, \X#2, \Y 
ITIL PLETE E TELE LLL Liki: 
: PRGO ROUTINE 22 . 
ZADDRESS OF NEXT ROUTINE . 
[TEST ITERATION COUNT . 
:SCOPE ENTRY POINT * 


POTITITIPCICTeTITTTTITTTTiTitTititTittt Titi ttt itt titi itt i ith ititttiiie 

READ er * are OF 3 CHARS EACH. STALL (0 TO 31 opty BEFORE EACH GROUP. 
177740 004242 #177740,STLMSK ;LIMIT STALLS TO 31 MSECS. 
004352 "SR %7 ,BSYNC sSYNC READER. SET ERROR COUNTER 
000003 004272 POVA: MOV #3,RNCNT SET CHAR COUNT TO 

Ss [RANDOM STALL (0 TO 31 MSECS). 
004064 POVB: JS %7,,BREAD 3GO READ CHARACTER 
004274 %7 ,BCHECK :GO CHECK CHARACTER READ. 
004272 RNCNT 73 CHARS R 
POVB :BR IF NOT 3 CHARS YET. 


POx,1000. 
POX,1000. ,\X#1,\X+#2,\Y 
ht aged cade etapa ee mnie genio «clipe bite 
POT23: : PRGO ROUTINE 23 * 
;ADDRESS OF NEXT ROUTINE * 
TEST ITERATION COUNT * 
[SCOPE ENTRY POINT * 
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000023 X=X+1 
LEAR RRR RRR EERE ERR REE ERE EERE REE REE REE REE ERE ERR ERE REE RE 
;READ AND CHECK 1000 CHARACTER GROUPS OF RANDOM LENGTH (1 TO 15). 
RANDOM STALL (0 TO_ 31 MSECS) BETWEEN GROUPS. 
012737 177740 004242 MOV #177740,STLMSK ;LIMIT STALLS TO 31 MSECS. 
177760 004270 #177760,RCMSK  ;LIMIT MAY CHAR COUNT TO 15 CHARS. 
004352 J %7 ,BSYNC SYNC READER. SET ERROR COUNTER. 
POXA: : %7,GRCNT [GENERATE RANDOM CHAR COUNT. 


POXB: S %7 ,BREAD ;GO READ CHARACTER. 
%7 ,BCHECK :GO CHECK CHARACTER. 
RNCNT ALL CHARS READ? 
POXB ;BRANCH IF NOT. 


; SCOPE 
POY,1000. ,\X+1,LST.\Y 
JOSS CISCO IISIOIOISIOISISIOICIOISISIDIIOI IOI IOI TOT OTT TOT TOT TTT TOT TOT TOT TT ASAD IAS ASS SSSA 
; PRGO ROUTINE 24 * 
sADDRESS OF NEXT ROUTINE * 
;TEST ITERATION COUNT * 
:SCOPE ENTRY POINT * 


FERRARA RRR ERE EERE EERE REE REEE ERE 
{RANDOM LENGTH 1000 CHARACTER GROUPS OF SPECIAL BINARY COUNT PATTERN. 
;GROUPS (BETWEEN 1 AND 77). RANDOM STALL BETWEEN GROUPS (0 TO 31 MSECS). 
177740 004242 MOV #177740, STLMSK 
177700 004270 #177700,RCMSK 
004352 J %7 .BSYNC SYNC READER; SET ERROR COUNTER. 
004244 POYA: %7,GRCNT ;GENERATE RANDOM CHARACTER COUNT. 
S ;RANDOM STALL (0 TO 31MSECS) 
004064 POYB: S %7 ,BREAD :GO READ CHARATER 
004274 %7 ,BCHECK 3GO CHECK CHARACTER READ 
004272 RNCNT [DECREMENT RANDOM CHAR COUNT 
POYB 7 Ag AGAIN IF COUNT NOT 0. 


SCOPE : 
:PRGI ~ PUNCH TESTS 
X=- 


Y 
001256 PRG1: #P1TO,KSTART ADDR OF 1ST ROUTINE TO KSTART 
T TYPE TITLE. 


PC ,PCHSEL SELECT PUNCH. 
SRSET ;GO GET STARTED. 
P1A,1000. 


P1A,1000. ,\X+1,\X+#2,\Y 
PITTTITITIT LILLIE L ELLE LEE ikke 
3 PRG1 ROUTINE 0 * 
ADDRESS OF NEXT ROUTINE * 
TEST ITERATION COUNT * 
:SCOPE ENTRY POINT * 


EASON IOI ISIOIIISIOISISIIISISISIDIIIISIDIOIIOIUIOIIIUIDIOIIIOIOIIOIOIDOIIDIOIIDIIOOIUDIUOISOOIN OI ttt 
TEST ABILITY TO REFERENCE THE PUNCH STATUS WORD (PPS) 

012737 006764 MOV P1AB,MACHER 

005777 172222 $ aPPS REFERENCE PUNCH STATUS WORD 

104000 ; SCOPE 
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104015 P1AB: ERROR ERROR. TRAPPED WHEN REFERENCING PUNCH 
104000 SCOPE STATUS WORD (PPS). 
TSTA P1B,1000. 


TSTAA =P1B,1000. ,\X#+1,\X+#2,\Y 
DAS EISISIOISISIOIDISISIDIOISISIOISIOISIOIIISIOIIOIIOIDICIIOIIOIOIDIOI IOI OICINETOIIOI ITO II TOT TOI TOT TOT TTT TOE 
000001 ; ; PRG1 ROUTINE 1 * 
007020 ;ADDRESS OF NEXT ROUTINE * 
001750 00. ;TEST ITERATION COUNT * 
007006 ;SCOPE ENTRY POINT * 
000001 


PITTTITITCITTITITTITITTITITitiititiititiiLit titted 
TTEST ABILITY TO REFERENCE THE PUNCH BUFFER (PPB) 
012737 007014 000004 P1BB MACHER ;SET UP MACHINE ERROR TRAP. 
005777 172174 P1BA: aPPB SREFERENCE PUNCH BUFFER. 
104000 ; SCOPE 


P1BB: ; TRAPPED WHEN REFERENCING 
[PUNCH BUFFER (PPB) 
P1C,1000 


TSTAA P1C,1000. ,\X+1,\X#2,\Y 
FI IORI IORI TORII IORI AAI TAI AISA IAIISIISASSIIASIAASAIS SAI AA IAA AAI AIAN A 
; PRG1 ROUTINE 2 * 
SADDRESS OF NEXT ROUTINE * 
;TEST ITERATION COUNT * 
:SCOPE ENTRY POINT . 


PHISH IEEE ISIE IOI OIE IE III III IER IOI IO TORII IOI III TORTI TRIO STATA BASSAS AIA 
[TEST ABILITY TO SET AND CLEAR ID BIT (BIT 6) IN PPS 
PICA: IS #B1T6,aPPS ;SET ID BIT IN “¢- (BIT 6) 
4#B1T6,aPPS ;CHECK 1D BIT IN PPS 
P1CB [BRANCH If BIT SET 
- FAILED TO SET ID BIT (BIT 6) IN 


#B1T6,aPPS :CLEAR ID BIT IN PPS 
#B1T6,aPPS :CHECK ID BIT _IN PPS 
+4 BRANCH IF BIT IS CLEAR 
;ERROR. ID BIT IN PPS FAILED TO CLEAR 


STA P1D,100. 
TSTAA P1D,100.,\X+1,\X+2.,\Y 
TTT IIIT TTL TET TELL ELLE LEE LLL 
; PRG1 ROUTINE 3 * 
TADDRESS OF NEXT ROUTINE * 
;TEST ITERATION COUNT * 
[SCOPE ENTRY POINT * 


DEERE E EEE KEE EERE REE KER E EERE EKER EK 


STEST ABILITY TO CLEAR ID BIT (6) IN PPS 
000100 172072 PI1DA: #BIT6,aPPS sett ID BIT IN PPS. 


SRESET ESET 
000100 172062 #B1T6,aPPS TEST ID BIT IN PPS. 

BEQ +4 SBRANCH IF ID BIT IS CLEAR 
ERROR. RESET INSTRUCTION +AILED TO 
:CLEAR ID BIT (BIT 6) IN PPS. 


COPE 
TSTA P1E,1000. 
TSTAA =P1E, 1000. ,\X+1,\X+#2,\Y 


PITTS ITITTITLITIITTLT TTT TLL LLL LLL LLL LLL LLL ide 
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PIT4: 4 ; PRG1 ROUTINE 4 
P1T5 ;ADDRESS OF NEXT ROUTINE 
1000. TEST ITERATION COUNT 
aes SCOPE ENTRY POINT 
X=X+ 
FIT TIT RTE ERE ERE REE ERE 
TEST THAT READY BIT (BIT 7) IS SET FOLLOWING A RESET INSTRUCTION, AND 
; THAT THE READY BIT CAN BE READ her hes 
105777 PIEA: TB aPPS TEST PPS 


100401 E , ‘BRANCH IF READY BIT SET 
‘ERROR. RESET FAILED TO SET READY BIT, 
‘OR FAILED TO READ READY BIT. 


; PRG1 ROUTINE 5 * 
ADDRESS OF NEXT ROUTINE * 
TEST ITERATION COUNT * 
;SCOPE ENTRY POINT * 


LR RRR RRR KE EEE ERE REE REE EEE RRR E KERR EERE EH 


s TEST eur BIT (BIT 7) OF “RESET RESET BY LOADING PUNCH BUFFER (PPB) 


PIFA: E 
004540 ; CHECK FOR PUNCH READY 
000000 172010 #0.aP ;LOAD 0 INTO PUNCH BUFFER (PPB) 
172002 STEST PPS 
. BRANCH IF READY BIT CLEAR 
ERROR. LOADING PUNCH BUFFER (PPB) 
;FAILED TO RESET READY BIT IN PPS 


,100. 
TSTAA P1G, 100. , \X+1,\X+#2, \Y 
FRR RRR KARE EERE EKER EERE EEEEEEREKEEEEEEKKEEREREKEE EERE E 
; PRG1 ROUTINE 6 . 
TADDRESS OF NEXT ROUTINE . 
[TEST ITERATION COUNT . 
[SCOPE ENTRY POINT * 


LR RRR ERE REE EEE EER ER EKER REE EEEEEEREEEKEERERE ERE 


pueee THAT READY BIT (BIT 7) IS NOT RESET BY BYTE LOADING PPB+1. 
P1GA RESET sRESET 


ESE 
004540 S CHECK FOR PUNCH READY. 
001206 PPB, 20 


000000 ;LOAD PPB+1 
171740 S TEST PPS 
: BRANCH IF READY BIT NOT RESET. 
ZERROR. LOADING PPB+1 CLEARED READY BIT. 


STA H,1000. 
TSTAA P1H{1000. , \X#1,\X#2, \Y 
PITTIITIT ELLE ELLE TEER LE LEE LLL Lis 
P1T?: ; PRG1 ROUTINE 7 
ADDRESS OF NEXT ROUTINE 
TEST ITERATION COUNT 
[SCOPE ENTRY POINT 
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177776 
00454 


000100 
000700 


177776 
004540 
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FIO I ROI RI IOI I ICICI ICRI III IORI TOT ATT AIS AAI AAAIS SASSI SAAS S ASA 
TEST THAT PUNCH (READY BIT) IS ABLE TO INTERRUPT. IF THE INTERRUPT IS 
SERVICED, IT WILL HAVE OCCURRED AT By VECTOR. 

STPCHV ;SET UP PUNCH INTERRUPT VECTOR. 


P1HA: SET PRTY TO 0. 
CHECK FOR PUNCH READY. 
DISABLE PUNCH INTERRUPT 
#8116. aPPS ENABLE PUNCH INTERRUPT 


sERROR. FAILURE TO INTERRUPT WITH 
;PUNCH READY SIT SET. 
P1HB: SCOPE ; INTERRUPT VECTOR POINTS HERE. 
TSTA P11,1000. 
TSTAA P1],1000.,\X#+1,\X#2,\Y 
J III RI EER KERR EERE EERE REE EERE EEK ERE REE ERE REE EEE 
; PRG1 ROUTINE 10 . 
zADDRESS OF NEXT ROUTINE * 
;TEST ITERATION COUNT * 
;SCOPE ENTRY POINT * 


HSE EI SEES ISIE IOI IEEISEI SEI IE IOI IOI OER IOI IOI IOI IO III IOI TOI IO TOIT TATA SORIA SAI 
> TEST THAT PUNCH DOES NOT REINTERRUPT AFTER RTI WHEN READY BIT IS NOT RESET. 
PIIA: oe ;SET UP PUNCH INTERRUPT VECTOR 


PSW SET PRTY TO 0. 
%7,CPRDY ; CHECK FOR PUNCH READY. 


000100 171632 #B11T6,aPPS ;DISABLE PUNCH INTERRUPT 


000100 171624 BIS #B1T6,aPPS sENABLE PUNCH INTERRUPT 
; ERROR. PUNCH FAILED TO INTERRUPT. 
007406 171620 P1IB: MO #P1ID,@PCHVTR :CHANGE INTERRUPT VECTOR TO P1ID 


007402 


#P1I1C,a%6 CHANGE INTFRRUPT RETURN ADDRESS. 
PrIC RETURN fROM In;SRRUPT. 


P1ID: ;ERROR2. PUNCH REINTERRUPTED AFTER RTI WITH 
P1).1000. READY BIT LEFT ON. POP THE STOCK TWICE 


P1J,1000. ,\X#+1,\X+2,\Y 
PITTI TITTLE ETL LLL LLL LLL bikie 
: PRG1 ROUTINE 11 * 
sADDRESS OF NEXT ROUTINE » 
:TEST ITERATION COUNT * 
:SCOPE ENTRY POINT * 


LRA REE REE REE EERE EERE EERE ERE EEE EEE REE EEE ERE EE 


TEST THAT THE PUNCH DOES NOT INTERRUPT WITH PROCESSOR AT SAME PRIORITY 
;LEVEL AS THE PUNCH, 
STPCHV SET UP PUNCH INTERRUPT VECTOR. 


177776 =~PIJA: ; tha SET PROCESSOR PRIORITY SAME AS PUNCH. 


DISABLE PUNCH INTERRUPT. 
%7,CPRDY CHECK FOR PUNCH READY. 


004737 J 
052777 1 171532 #B1T6,aPPS ENABLE PUNCH INTERRUPT. 





PA611_ = MACY11_ 30A(1052) _14=JUN=78 14:20 PAGE 28 
CZPAAC .P11 13-JUN-78 12:38 


000240 OK IF NO INTERRUPT OCCURS. 
005077 171524 “DISABLE PUNCH INTERRUPT. 
104000 S) : SCOPE 
104015 : ERROR. PUNCH ERRONEOUSLY INTERRUPTED 
:WITH PROCESSOR AT SAME PRIORITY LEVEL 
AS THE PUNCH, OR THE PUNCH IS AT HIGHER 
P1k.1000. “PRIORITY LEVEL THAN SPECIFIED AT PCHLVL. 


P1K,1000. ,\X#+1,\X+#2,\Y 
RR III ITO IO ICICI OOOO III AIA IAI SAI SASSI SISASASISSSSISAIASISSISSSISSSSSASISSSS 
P1T12: 12 ; PRG1 ROUTINE 12 * 
P1113 SADDRESS OF NEXT ROUTINE * 
1000. ;TEST ITERATION COUNT * 
thes” ;SCOPE ENTRY POINT * 
X=X+ 
REE REE EEE 


[TEST THAT PUNCH INTERRUPTS WITH PROCESSOR AT PRIORITY 1 LEVEL LOWER 
; THAN THE PUNCH PRIORITY. 
STPCHV SET UP PUNCH INTERRUPT VECTOR 


001216 177776 PIKA: PCHLVL ,PSW SET PROCESSOR st a ONE LEVEL LOWER 
000040 177776 0,PSW Fi 

000100 171460 

004540 


R 
000100 171446 #BIT6,aPPS [ENABLE PUNCH INTERRUPT. 


PUNCH FAILED TO INTERRUPT WITH tm 
[PRIORITY ONE LEVEL re THAN PUNCH 
: THEREFORE . PUNCH PRIORITY MUST 
“BE LOWER THAN SPECIFIED AT PCHLVL. 
P1KB: SCOPE SHERE IF INTERRUPT OCCURS. 
TSTA P1L,1000. 
TSTAA = P1L, 1000. ,\X+1,\X#2,\Y 


LRA REET! ERE EERE EEE REE EERE EKER ERE EERE EERE EEEER EERE 


; PRG1 ROUTINE 13 * 


* 
* 
* 


:SCOPE ENTRY POINT 


CApiddiiataaaniaencineaneibhanhbnnssguiinebieaaaananenebeniinteh 


STEST THAT — INTERRUPTS taieart UPON LOWERING CP PRIORITY TO 0. 
TPCHV SET UP PUNCH INTERRUPT VECTOR 


P 

PILA: %7,CPRDY ;CHECK FOR PUNCH READY. 
171412 BI #B1T6,aPPS DISABLE PUNCH INTERRUPT 
171404 #B1T6,aPPS 7 ENABLE a INTERRUPT 


PSW SLOWER PRTY TO 0. 
177776 MOV #PRTY7 ,PSW :RAISE CP PRIORITY BACK TO 7. 
RROR. PUNCH FAILED TO INTERRUPT IMMEDIATELY 
“AFTER CP PRIORITY WAS LOWERED TO 0. 

P1LB: SHERE IF INTERRUPT OCCURS. 

TSTA P1M,5 

TSTAA =P1M,5,\X#1,\X+2,\Y 
zceerennancececnnnenaeeeqesereteeneenessereseessasosnestaneeeasennttseets 
P1T14: 14 PRG1 ROUTINE 14 * 

P1715 TADDRESS OF NEXT ROUTINE * 
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000005 5 ;TEST ITERATION COUNT * 
007626 PIMA [SCOPE ENTRY POINT * 
000014 X=X+1 
FRI RII II TTT TTI IIT TTT TT IIT TR IR TT TTT IK 
“PUNCH SPECIAL BINARY COUNT PATTERN IN PUNCH MODE 0 (FULL SPEED) 
012737 001000 001330 PIMA: MOV #512- .RCNT ;SET CHARACTER COUNT TO 512 
004537 010122 JS %5,P :60 O PUNCH FRONT END AND MODE 0 


z INDICA 
; INITIALIZE SPECIAL BINARY COUNT 
P1MB: GET BINARY CHARACTER 
%7,HSPCH ;GO PUNCH THE CHARACTER 
RCNT :DECREMENT CHAR COUNT. 
P1MB BRANCH IF COUNT NOT YET O YET. 


P1N,5 
PIN,5,\X#1,\X+#2,\Y 
SACI ICICI ICI CIRCE CII IEIOIOIOII TIO IOI TITRA S OTS SOS SIS S SS SSSI ASSIA. 
P1T15: 15 3 PRG1 ROUTINE 15 
P1T16 ss ;ADDRESS OF NEXT ROUTINE 
;TEST ITERATION COUNT 
seed ;SCOPE ENTRY POINT 
X=X+ 
RRR REE REE KERR EKER EKER EERE ERE EEEEEEEKRKEEE ERE EE KK 
[PUNCH SPECIAL BINARY COUNT PATTERN IN PUNCH MODE 1 (RANDOM STALLS AFTER 
PUNCHING — CHARACTER. MAXIMUM STALL 47 MILLISECONDS) 
177720 004242 #177720,STLMSK ;SET STALL MASK FOR 57(8) MAX 
001000 0013350 PINA: MOV #512. ,RCNT ZSET CHARACTER COUNT TO 512. 
010122 : %5,PFRNT :GO Ay 2 Raa END, AND MODE 1 


: INDICA 
: INITIALIZE SPECIAL BINARY COUNT. 
: ;GET BINARY CHARACTER. 
004572 %7,HSPCH G0 ay Sy J CHARACTER. 


OM 
001330 EC RCNT “DE CREMENT CHAR COUNT. 
P1NB BRANCH IF COUNT NOT YET 0. 


SCOPE 
P10,5 
P10,5,\X+1,\X+#2,\Y 


DIOR III IOI ICICI IOICIOIOICIOIOIOIOIIOIIIOI I TOI TOT TOT OTR TOT AIS IAI SAI ISAISAISASISSIAS SSSA SASASM 
P1T16: Ls ; PRG1 ROUTINE 16 * 
117 ADDRESS OF NEXT ROUTINE * 
;TEST ITERATION COUNT * 
Aan’ :SCOPE ENTRY POINT * 
=X+ 
DAISIES IIOIIOISIDIOIIDICISIOIISIOISIISISIIUIOISIIOISIIOIIIOIOIOINIUIOIIOIITIOI IOI TOI TOOT TOIT TOI TTI TOIT TIE 
[PUNCH SPECIAL BINARY COUNT PATTERN IN PUNCH MODE 2. 
; (RANDOM STALL BEFORE PUNCHING RANDOM LENGTH GROUP OF CHARACTERS). 
[MAXIMUM STALL 47 MILLISECONDS, MAXIMUM GROUP LENGTH ~15) 
177720 004242 MOV #177720,STLMSK ;SET STALL MASK FOR 57(8) MAX 
177760 004270 MOV #177760,.RCMSK  :SET CHAR GROUP MASK FOR 1785 MAX). 
001000 001330 P1O0A: #512. ,RCNT SET CHARACTER COUNT TO 512. 
010122 %5,,PFRNT [60 Ay oe ge, END AND MODE 2 


: INDICAT 
INITIALIZE SPECIAL BINARY COUNT. 
004244 P10B: JS %7,GRCNT ;GENERATE RANDOM CHARACTER COUNT 
RANDOM STALL. 





PA611 MACY11 30A(1052) 
CZPAAC.P11 13-JUN-78 


010120 


010122 
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004572 
001330 


004272 


001000 
€10122 


000040 


004572 
001330 


004272 


P10C: rt ;GET BINARY CHARACTER. 


;BRANCH COUNT IS 0. 
:NOT 4 DECREMENT RANDOM CHAR COUNT. 
[BRANCH IF COUNT NOT YET 0. 

;BRANCH IF COUNT 0 

> SCOPE 


P1P,1,\X+#1,LST,A\Y 
FERRER ERK EERE REE EEE EEE EKER EERE EERE EERE EKER EKER KKKEEEEK KEE KH 
P1T17: 17 ; PRG1 ROUTINE 17 . 
PITLST SADDRESS OF NEXT ROUTINE * 
1 STEST ITERATION COUNT 4 
PIPA :SCOPE ENTRY POINT * 
=X+ 
LR EEK ERK EERE EEK REE KK 
[PUNCH SPECIAL BINARY COUNT PATTERN IN PUNCH MODE 3. 
sfowleTeD PUNCH 32 CHARACTERS, UNTIL THE ENTIRE PATTERN IS 
001330 PIPA: MOV #512. ,RCNT ;SET CHARACTER COUNT TO 512. 
JSR %5 ,PFRNT :GO PUNCH FRONT END AND MODE 3 


; INDICATOR. 
INITIALIZE SPECIAL BIN COUNT 
:STALL 10 SECONDS 


004272 » MO #32. ,RNCNT +H GROUP COUNT TO 32. 
%7,HSPCH 
RCNT 


P10D: 


;BRAN 
:DECREMENT GROUP COUNT 
BRANCH IF COUNT NOT YET 0. 
BR PB ;BRANCH IF COUNT 0. 
P1PD: ; SCOPE 


; SUBROUTINE TO PUNCH FRONT END ANID) MODE CODE (USED BY PRG3). 
PFRNT: MOV #20. ,%1 ;PUNCH 20 BLANK CHARACTERS (000) 
CLEAR PCHOUT. 
on 


[PUNCH CHAR 
:DECREMENT R1 
BN -6 BRANCH IF NOT 20 CHARCTERS YET. 
001332 4377 -PCHOUT PUNCH RUBOUT CHAR (SYNC CHAR). 
()+. PCHOUT :MOVE MODE CODE TO PCHOUT 
PUNCH MODE CODE. 
[PUNCH 4 BLANK CHARACTERS. 


EXIT 


zPRG2 - PUNCH VERIFY PROGRAM 

THIS PROGRAM VERIFIES Hina PRODUCED BY PRG1. 
ANY ERRORS FOUND ARE REPORTED. 
PRG2: TYPE TYPE TITLE 


SEQ 0051 
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005020 


14 


000372 001352 
000012 001354 
004064 


001334 
001354 
001352 


001352 


004064 
001334 
001352 


000377 001326 
001350 001326 
001326 001334 


004064 
001334 000003 


:20 PAGE 31 


PC ,RDRSEL ; SELECT READER. 


;WAIT FOR USER. 
ETOA: MOV #250.,CTRA 7250 TO CTRA. (TOTAL CHAR COUNT). 
ETOB: 1 RB 
ETOC: %7 ,BREA READ CHAR 

CRBUF 


;BRANCH IF eee CHAR. 

30 CHAR. DECREMENT CTRB 

BRANCH IF 10 Se O°S READ. 
NO. DECREMENT CTRA 

BRANCH IF NOT YET 250 CHARS READ. 
3250 CHARS READ. SYNE ERROR. 
;DECREMENT CTRA 

BRANCH IF NOT 250 CHARS READ YET. 
SYNC ERROR. 250 CHARS READ WITHOUT 
zA SUCCESSFUL SYNC. 


:GO TRY AGAIN. 
EAD CHAR 


;BRANCH IF NON-ZERO CHAR. 
;DECREMENT CTRA 

BRANCH IF NOT 250 CHARS READ YET. 
3250 CHARS READ. SYNC ERROR. 


ETOE 

#377 ,ERRT 
RDRMSK , ERRT 
ERRT , CRBUF COMPARE CHAR READ TO 377. 
ETOH 377.0K 


‘ERROR TYPEOUT. 


;LEADER ERROR. SHOULD BE 377. 


: START OVER 


;READ CHAR. 
[COMPARE CHAR READ TO 3. 
:BRANCH IF SAME OR LOWER 
TERROR. CONVERT DATA READ TO ASCII. 
SET UP FOR TYPEOUT. 


ETOH: 


;LEADER_ERROR. SHOULD BE BETWEEN 
0 AND 3. 


SEQ 0052 
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BR ETOA START OVER. 
000004 001352 ETOI: ° 74 TO CTRA (CHAR COUNT) 
003212 CL BINR CLEAR BINR. EXPECTED CHAR IS 0. 
004064 READ CHAR. 


ETOJ: 
010530 
001352 
;BRANCH IF NOT 4 CHARS READ YET. 
PpiNITIALIZE SPECIAL BINARY COUNT. 
001000 MO #512., 7SET CHAR COUNT TO 512. 
004064 E : :R AD CHAR. 


%7, BREAD 
:GET BIN CHAR. 


010530 :GO CHECK CHAR wor 
001352 TRA sDECREMENT CHAR C 
BRANCH IF NOT sie ¢ CHARS READ YET. 
BR ETOA DONE. START OVE 
001334 : COMPARE CHAR READ AGAINST EXPECTED CHAR. 
ECHKA BRANCH IF EQUAL. 
ZCONVERT EXPECTED DATA TO ASCII. 


;CONVERT DATA READ TO ASCII. 


;ERROR. DATA ERROR. 


ECHKA TS %7 sEXIT 
[PRG3. = COMBINED READER-PUNCH TEST 

: USES wie. BINARY COUNT ot 

PRG3: YPE TYPE TITLE. 


005020 PC ,RDRSEL SELECT READER 
004622 PC,PCHSEL :SELECT PUNCH. 


; INITIALIZE BINARY COUNTS. 
77620 004242 Aiba STLMSK ;SET MAX. STALL DELAY. 
11124 PCHCNT CLEAR PUNCH COUNT 
11126 R RBUSY ;CLEAR READER BUSY INDICATOR 
SET PTRI VECTOR. 


SET PTPI VECTOR. 
:GET Tt CHARACTER 
003214 170326 V BINP,aPPB HIT 
000100 170316 #B1T6,aPPS “ENABLE PTPI 
177776 PSW 3SET PRIORITY 0. 
> ; TRAP CALL TO CAUSE NOISE. 


BR 
170302 : @aPPS TEST FOR ERROR. 
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010702 100004 BPL ;BRANCH IF NO ERROR. 
we : TYPE PUNCH NOT READY 


;RECHECK FOR ERROR. 

;CHECK FOR DONE. 

BRANCH IF DONE SET 
TERROR.FALSE PUNCH INTERRUPT. 


011124 : PCHCNT ; INCREMENT PUNCH COUNT. 
;GET BINARY CHARACTER 
003214 170242 MO BINP ,aPPB ;ENABLE PUNCH 
011124 000144 PCHCNT ,#100. NOT BUSY. PUNCH COUNT 100 YET? 
+4 BRANCH IF YES.. 
NOT YET. EXIT INTERRUPT 
011126 RBUSY READER BUSY? 
BM PBNC SBR IF YES. 
000200 011126 #B1T7,RBUSY SET READER BUSY 
000101 170200 #101,aPRS ENABLE tye | AND READER. 
011124 000146 : a T 102? 


170170 CL STOP PUNCH. 


sEXIT INTERRUPT. 
170154 : CHECK FOR ay 
BP BRANCH IF NO ERROR 

003772 TERROR. TYPE MESSAGE . 


BR C 
170140 : ; TEST FOR DONE. 
BM [BRANCH IF DONE SET 
TERROR. FALSE READER INTERRUPT. 


170126 001334 3 : ° ; CHARACTER READ TO CRBUF 


011124 
;BR IF NOT 0. 
000100 170112 :NO. PTPI ENABLED? 
READA ;BR IF YES. 


BNE C 
000100 170102 BI #B1T6,aPPS NO. ENABLE PTPI. 
000200 011126 CREADA: #B1T7,RBUSY YES. CLEAR READER BUSY. 
170064 C - DISABLE PTRI. 


R sEXIT. 
170056 CREADC: @PRS ;ENABLE READER 
RT %7 sEXIT. 
PCHCNT : 


011020 : %7,CREAD READ CHARACTER 
001334 T CRBUF CHECK CHARACTER 
+4 BRANCH IF NON-ZERO CHAR. 
;ZERO. EXIT INTERRUPT. 
011162 170036 #RBIN,ARDRVIR SET READER VECTOR TO READ BINARY 
000003 001344 rea ;COUNT. SET ERROR COUNTER TO 3. 


BR 
011020 : %7,CREAD ;READ CHARACTER. 
: GET BINARY CHARACTER 


EVSNENSKSRRVARSS 


Ws 
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011170 023737 003212 
001001 


001344 


100000 
011270 
000004 
001334 
011020 
001334 
001344 
004440 
011162 
000003 
100000 


004622 


177570 
004572 
177571 
004572 


001334 


011126 
167734 
001344 


167664 
001344 
011126 


001332 
001332 


14:20 PAGE 34 


BINR, CRBUF 
RBINB 


ERCTR 
RBINC 


#B1T15,RBUSY 
ARBIND , @RDRVTR 
#4,ERCTR 
#CRBUF , %0 


%7, CREAD 
CRBUF , (0) + 
ERCTR 

+4 


Ea 
#RBIN, ARDRVTR 


#3,ERCTR 
#81T15,RBUSY 


; COMPARE AGAINST CHAR READ. 
;BRANCH IF NOT SAME. 

SAME EXIT INTERRUPT. 

CONVERT EXPECTED CHAR TO ASCII 


; CONVERT RECEIVED CHAR TO ASCII 


ERROR MESSAGE. DATA ERROR. 


33RD ERROR? 


:NO. EXIT INTERRUPT. 

DISABLE STALLS. 

;SET PTR VECTOR TO RBIND. 

[USE ERCTR AS CHARACTER COUNTER. 
ADDR OF CRBUF TO 0 

EXIT INTERRUPT 

READ CHARACTER 

STORE pect: Bh STARTING AT CHR1 
z3RD ¢ CHARACTER? 


YE 
sEXIT INTERRUPT. “4 3RD YET. 
:GO SYNC THE READER 
;NO SYNC. TRY AGAIN 


= SYNCED. SET READER VECTOR TO RBIN. 
COUNT TO 3. 


EXIT INTERRUPT. 


2 CHARACTERS SET. SR 


PC ,PCHSEL 


SR ,PCHOUT 
%7,HSPCH 
SR+1,PCHOUT 
%7,HSPCH 


TYPE TITLE. 


; SELECT PUNCH. 


; COMMON HALT. WAIT FOR USER. 
[PUNCH FIRST CHARACTER. 


PUNCH SECOND CHARACTER. 


SEQ 0055 


BR PRG4A REPEAT. 
READS-CHECKS TAPE PUNCHED WITH CODES SET IN SR 
trove sTYVPE TITLE. 

L 


JSR PC,,RDRSEL ;SELECT READER. 
YPES 
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177777 


01 
011670 
011672 000670 


011674 


102010 
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177570 
177571 
004064 


001344 


001336 
001340 
177777 
001334 


005020 


001356 
001360 


001336 


001340 
001356 


001360 


001344 


001356 


001360 
001356 
001354 
001360 


HTOA: 


HTOB: 
HTOC: 


HTOD: 


HTOE: 


HTOF : 


HTOG: 


;PRG6 - 
PRG6: 
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CHALT COMMON HALT. WAIT FOR USER. 
MOVB SR, CTRC STORE EXPECTED CHARACTERS. 
MOVB = SR+1, CTRD SIN CTRC AND CTRD. 
JSR 7 BREAD :MATCH CHARS ON TAPE AGAINST EXPECTED CHARS. 
MOV —sCRBUF , CHR1 READ CHAR INTO CHR1 
JSR -BRE TREAD CHAR 
MOV CRBUF , CHR2 INTO CHR2 
CMP = CHR, CTRC > (CHR1)=(CTRC)? 
BNE HTOE :NO. 
CMP ss CHR2,, CTRD YES. (CHR2)=(CTRD)? 
BNE —-HTOG NO. MATCH ERROR. 
CLR CTR YES. NEXT CHAR SHOULD = (CTRC) (CTRB=0) 
MOV #3, ERCTR 73 TO ERROR COUNTER 
JSR —-%7, BREAD READ CHAR 
COM RB :COMPLEMENT CHAR INDICATOR 
BEQ  -HTOF BRANCH IF EXPECTED CHAR SHOULD = (CTRD) 
CMP  —s- CRBUF , CTRC :(CRBUF) = (CTRC)? 
BEQ  4HTOC ZYES. 
OACNV NO. (CTRC) TO ASB IN ASCII FORM. 
CTRC 
ASB 
OACNV : (CRBUF) TO AWAS IN ASCII FORM. 
CRBUF 
AWAS 
ERRORN ;ERROR 1 CALL. TYPE DATA ERROR MESSAGE. 
-1 
DEC ERCTR :3 ERRORS? 
BEQ § HTOA YES. START ALL OVER. 
BR HTOC ZNO. CONTINUE READING 
CMP —s- CHR, CTRD Z(CHR1) = (CTR 
BNE —-HTOG NO. MATCH E 
CMP —s CHR2,, CTRC YES. (CHR2) = (CTRC)? 
BNE ——-HTOG NO. MATCH ERROR. 
MOV «#1, CTRB YES. NEXT CHAR SHOULD = (CTRD) 
BR HTOB :GO START READING. 
CMP  —s- CRBUF , CTRD = (CRBUF) = (CTRD)? 
BEQ =~ HTOC YES. OK. CONTINUE READING. 
OACNV NO. (CTRD) TO ASB IN ASCII FORM. 
CTRD 
ASB 
HTOD ;GO GENERATE ERROR MESSAGE. 

ERRORN :MATCH ERROR. UNABLE TO MATCH UP 
EMG 2 CONSECUTIVE CHARACTERS FROM READER 
BR HTOA ;TO CHARACTERS READ FROM SR. 
READ X CHARACTERS, STALL Y MILLISECONDS. 
TYPE ;TYPE TITLE AND INSTRUCTIONS. 

L 
JSR. _—- PC, RDRSEL ;SELECT READER. 
TYPE 


SEQ 0056 
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013371 
011754 


011754 sMOVE STALL COUNT TO ITY. 
177571 011760 MOVE CHAR COUNT TO ITX. 
TC ;BR_IF COUNT 0. 
003714 ITB: FETCH CHARACTER. 
011760 TX ; 


17€s iR 
ITY: OP’ 7STALL COUNT IN MSECS. 
BR SREP EAT 


ITX: OPEN 
3PRG7. PUNCH SPECIAL BINARY COUNT PATTERN TEST TAPE 
PRG7: TYPE TYPE TITLE. 


PC ,PCHSEL ;SELECT PUNCH. 


:WAIT FOR USER. 
PUNCH 20 BLANK CHAR. LEADER 


PRG7ZA: 


I INITIALIZE SPECIAL BINARY COUNT 
PRG7B: ;GET BINARY CHARACTER. 
004572 J %7,HSPCH ;PUNCH CHARACTER 


BR PRG7B ;REPEAT. 
;PRG10 - READER SPEED PRINT LOOP’ 
PRG10: TYPE TYPE TITLE 


005020 J PC ,RDRSEL ;SELECT READER. 


HALT. WAIT FOR USER. 
001356 : CTRC CLEAR WORK REGISTERS 
001354 CTRB 
040000 177570 #B1IT14,SR DETERMINE WHETHER 30 OR 
KTB 3300 SECOND TIMING IS DESIRED 
001356 #270. ,CTRC ;SET UP FOR DESIRED TIME BASE. 
001356 : =< to4 ~CTRC 


ty BREAD READ CHARACTER. 
CTRA ;DECREMENT CTRA 
KTE ;BRANCH IF CTRA NOT OQ. 
CTRB ;CTRAO.+7 TO CTRB. 
001352 : CTRC,CTRA RELOAD CTRA. 
177570 : SR 7; TIME UP? 


KTC :NO. 
012254 : 45, CPKPL ;GO TYPE OUT DEVICE SPEED. 


004537 
014732 
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012154 BR A-2 ;GO HALT. 
“hae De - “— SPEED PRINT LOOP 
012156 PRG11 YPE TYPE TITLE. 


PC ,PCHSEL ;SELECT PUNCH. 


sHALT. WAIT FOR USER. 
001354 : CTRB ;CLEAR WORK AREAS. 
001332 PCHOUT 


LTC 
004572 : %7,HSPCH ;PUNCH A 0 
001352 CTRA ;DECREMENT CTRA 

LTD :BRANCH IF CTRA NOT O 
001354 ; CTRB ; INCREMENT CTRB. 
000074 001352 : #60.,CTRA sMOVE 60 TO CTRA 
177570 LTD: SR ; TIME UP? 


LTB 3NO. 
012254 : %5,CPKPL :GO TYPE OUT DEVICE SPEED. 
LTA-2 ;GO HALT AND READY UP FOR NEXT TIME. 


BR : 
012272 : (5)+,CPKPLA ;MOVE ADDR OF 1ST MESSAGE TO CPKPLA. 
; CONVERT (CTRB) TO DECIMAL ASCII. 


; TYPE DEVICE SPEED. 


T 
CPKPLA: 
A 


sExiT. 
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:PA611 ADDITIONAL CODE TO CHECK PUNCH LOGIC AND READER LIGHTS 


*MODIF IED: MARCH 15, 1975 
;PROGRAMMER: MIKE MITCHELL 


; PROBLEM CORRECTED: PUNCH GETS HUNG WHEN RUNNING OUT OF TAPE 
AND OPERATOR TURNS PUNCH OFF. THIS PREVENTS 
THE PUNCH FROM FINISHING THE PUNCH CYCLE 
BY KEEPING READY LOW. 


:PROBLEM FIX: ADDITIONAL LOGIC ALLOWS PUNCH TO BE 
: RE-INITED UNDER PROGRAM CONTROL. 


;THIS CODE RUNS UNDER OPERATOR INTERVENTION. 


012302 177777 MONE: 177777 BINARY ONE PATTERN 
000000 ZERO: 0 ;ZERO PATTERN 


[PROGRAM 12=--HIGH SPEED PUNCH PROGRAMMABLE INIT TEST 


104010 PRG12: TYPE 
T 3 TEXT ui INIT TESTa"’ 
PC,PCHSEL TSELECT THE PUNCH 


; TEXT ‘MAKE PUNCH READY"' 
ZTEXT ‘HIT CONTINUE’’ 


WAIT FOR OPERATOR. 


166646 : DISABLE PUNCH INTERRUPT. 
JS ; CHECK FOR PUNCH READY. 
001332 3 PUNCH BINARY 1 PATTERN. 
J :DO IT HERE. 
001332 [PUNCH BINARY ZERO PATTERN. 
PC,HSPCH1 
PG12A ;LOOP 


‘HIGH SPEED PUNCH ROUTINE 


7 
° 


012372 HSPCH1: NOP ; DEBUG. 
PUNCH THE CHARACTER 
012374 043737 001346 001332 BIC PCHMSK , PCHOUT 
012402 013777 001332 166576 PCHOUT ,@PPB ;LOAD PUNCH BUFFER. 
WAIT FOR DONE 
012410 012476 PC, TIMER :IN A TIMEOUT LOOP, 
000000 ;TIMED-OUT RETURN 

000400 166560 : #400, aPPS ;RE-INIT PUNCH, 

040000 177570 #B1T14,SR ; SCOPE ah ENABLED??? 
012432 1$ :YES,LOOP UNTIL SR14=0. 
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012434 
012440 


012442 


012444 


012474 


012476 


012520 


012522 
012524 
012526 


012530 
012532 


012534 
012540 


13-JUN-7 
004737 
000000 


000207 


005777 
100404 
105777 

00001 


012737 
000240 
005237 
001406 
105777 
100405 
104031 
000012 
000766 


000240 
000207 


062716 
000207 
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012476 


166534 
166526 


177200 001354 
001354 
166464 


000002 


JSR PC, 
HALT 


TIMER ;RE-CHECK THE DONE BIT. 
FATAL ERROR: DONE BIT WAS NO 
;RESET BY THE INIT INSTRUCTION. 


sELSE RETURN IS TO THE NEXT INSTRUCTION. 


RTS PC sEXIT 
;OUTPUT ERROR MESSAGE OF PUNCH NOT READY 
;I1F ERROR BIT 15 SET OR BIT 7 NOT SET. 


TSTPUN: 


R 
HSPCH2: 


TST 
BM 


@PPS 

HSPCH2 

aPPS 

HSPCH2 
:, PUNCH NOT READY*' 
3" MAKE PUNCH READY*' 
> TERMINATOR 

TSTPUN ;LOOP AGAIN 


‘TIMER ROUTINE FOR HIGH SPEED PUNCH 


‘WAITS FOR READY FLAG IN LOOP 
‘IF READY COMES UP WITHIN ALLOWABLE TIME ; RETURN IS TO CALL+2 
‘ELSE INIT IS ISSUED TO HSP AND PROGRAM HALTS AT CALL+1 


TIMER: 


TIMER1: 


READY NOT SET, 
DELAY 


TIMER2: 


TIMERS: 


be 
NOP 
RTS 


ADD 
RTS 


#-600,CTRB ;MAXIMUM=600 MS DELAY 
CTRB :UP COUNTER 

TIMER2 TIMED-OUT...ERROR.. 

@PPS “READY BIT SET? 

TIMERS YES, OK 


SO DELAY 10 MS AND CHECK AGAIN. 
310 MILLI SE DELAY. 


TIMER1 :GO CHECK AGAIN. 
PC RETURN TO CALL+1 
~ le RETURN TO CALL+2 IF NO ERROR 


ADDITIONAL CODE TO PROVIDE READER LIGHT TEST UNDER OPERATOR 
; INTERVENTION 
SUSE SWITCH 8. 
SUSE SWITCH 12(1) TO SELECT NEW READER TO TEST. 


TO TURN READER LIGHT OFF 


SEQ 0060 
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012542 


016066 
177777 
013700 


012624 


14-JUN-78 


12:38 


005020 


177570 
000400 


000400 
040000 


010000 


166376 
177570 


177570 
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PRG13: hag 


PRG13C: 
PRG138: 


1$: 


#10000,SR 
PRG13C 
PRG13B 


sOUTPUT TEST HEADER. 

7 TEXT 'PRG13--READER gies TEST’’ 
TSELECT READER VIA SWR 

Z OUTPUT MESSAGE : 

7 TEXT *‘TURN LIGHT ON VIA RDR SWITCH" 
7 TEXT iy Fe TO TURN LIGHT 


CHECK BIT 8. 
SWITCH DOWN, NO ACTION REQUIRED. 
ELSE TURN LIGHT OFF. 


31S SCOPE LOOP SET? 
Bate LOOP UNTIL SR14=0. 
T FOR OPR TO HIT CONTINUE 
CHECK FOR SELECT NEW READER. 
YES, SELECT NEW READER. 
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012626 022445 120 APGEND: .ASCII 


"aap! 
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012631 040 100 047105 APN: -ASCII ' ~ END.a" 
047111 CM2: -ASCII '%%? INVALID PROGRAMA" 
020104 
040522 


053116 (M3: -ASCII '%%?INVALID TESTA’ 
052040 


020124 ASETSR: .ASCII ‘%%SET SR OPTIONS. NORMAL SR IS 0000000" 


"Z2TYPESET 11 READER-PUNCH TESTS%a" 


052123 
052123 RUNINS: . *ZRESTART PROGRAM.@" 
051120 
027115 


020124 MSVCTR: . *%SSET SR WITH RDRO VECTOR.@' 


SELRDR: . "ZSET # OF READERS IN SR.@' 


042504 
020116 081195 
052105 021440 SELPCH: . "ZSET # OF PUNCHES IN SR.@' 


027122 


043522 : .ASCI] ‘%%PRG1. PUNCH TEST.a" 
047125 
051505 


-ASCII ‘%%PRG7. COUNT PATTERN TAPE GENERA TOR.@' 


042513 : . "ZMAKE READER READY.a@" 
042504 
042101 


2 
027131 
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13-JUN-78 


020105 


052 
052 


0 
520 


020105 
020110 
027131 


020114 
020124 
052040 


044522 
051505 


041525 
051120 
032107 


TITLO: 


IM16: 


TITL6: 


IM17: 


TITL2: 


IM2: 


TITL4: 


TITLS: 


ASCII 


ASCII 


ASCII 


ASCII 


-ASCII 


ASCII 


-ASCII 
ASCII 


-ASCII 


"Z%PRGO. READER TEST.@' 


"ZMAKE PUNCH READY.@' 


"Z2PRG6 - READ X, STALL Y.a" 


"%SET SR15 TO SR8 TO NO. OF CHARS TO READ,' 


"%SET SR7 TO SRO TO NO. OF MSECS TO STALL.@’ 


*%2PRG2. PUNCH VERIFY TEST.@" 


"ZLOAD READER WITH TAPE PRODUCED ° 


"BY PRG1.a" 
"%%PRG4. PUNCHES 2 CODES SET IN SR.@' 


"%SET CODES TO BE PUNCHED IN SR.@' 


*Z%PRG5. READS TAPE PUNCHED WITH CODES SET IN SR.a’ 





PA611_ —MACY11_ 30A(1052) 14-JUN-78 14:20 PAGE 44 
CZPAAC.P11 13-JUN-78 12:38 


013752 


020716 
052105 


IM23: 


TITL10: 


051105 


046440 
042522 


027131 


"ZSET CODES TO BE READ IN SR.a" 


* PRESS CONTINUE.@' 


"Z%PRG10. RDR SPEED TEST.a@' 


*ZLOAD ANY TAPE LOOP IN READER ' 


"AND MAKE READY." 





PA611 MACY11 30A(1052) 14-JUN-78 14:20 PAGE 45 
CZPAAC.P11 13-JUN-78 12:38 


051445 052105 051440 -ASCII] ‘%SET SR14 TO A 1 FOR 300 SEC ' 


-ASCII ‘TIMING, OR SET IT TO 0 FOR 30 ' 


020122 
014262 
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014263 123 041505 047117 -ASCII] "SECOND TIMING.a* 
014270 020104 044524 044515 
014276 043516 049056 
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051523 IM24A: .ASCII ‘XPRESS CONTINUE TO START TIMING.’ 
044524 
047524 
052122 
047111 


051440 ° "ZSET SR 15 TO A 1 AT END OF ' 


"TIMING PERIOD TO OBTAIN DEVICE SPEED 


050131 . ASCII 'TYPEOUT.a° 

051120 030507 TITL11: .ASCII '%%PRG11. PCH SPEED TEST.a" 
050040 044103 

042520 042105 

051505 027124 


rise TITL3: .ASCII ‘%%PRG3. COMBINED READER-PUNCH TEST.@" 


027124 
er gah : ° "ZMAKE PUNCH READY, PUNCH BLANK LEADER, ° 


042101 


051040 ° "LOAD READER.@' 
027122 


SM1: . "ZREADER ERROR BIT SET.@" 


SM2: . *ZREADER NOT READY.@" 
027131 
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SM3: -ASCII ‘%%PUNCH NOT READY.@' 


«ASCII '‘%ZREADER SPEED : @' 
-ASCII '‘%%PUNCH SPEED : a' 


ASCII ° CHARS PER SEC.@" 


-ASCII 
-ASCII 
-ASCII 
020040 -ASCII 
052116 
020040 AICNT: .ASCII 


020103 FPCMSG: .ASCII FPC ° 
020040 AFPC: .ASCII ' za' 


052101 EM1: -ASCII DATA ERROR S/B: * 
047522 
ASB: -ASCII WAS: ' 


ASCIT * a" 
-ASCII REREAD ERROR. 1ST READ: ' 


-ASCII WAS: ° 
ASCII a’ 
-ASCII SYNC ERROR.@' 
027122 
042101 : -ASCII ‘%LEADER ERROR. S/B: ‘ 
051122 
051440 
020040 : staiit °° WAS: ' 
040 
ASCII ° a' 
-ASCII '‘%LEADER ERROR. S/B BETWEEN ° 


042527 


015332 
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CZPAAC P11 13-JUN-78 12:38 SEQ 0070 
015335 060 040440 042116 «ASCII ‘O AND 3. WAS: * 
015342 031440 020056 040527 


015350 020123 020072 
015354 020040 020040 100 FWAS: .ASCII '° a’ 
015361 040 040515 041524 EM6: -ASCII * MATCH ERROR.@" 
1 
015377 045 047516 051040 EM7: «ASCII ‘%NO RDR RESPONSE .@' 
015412 vas > 051516 027105 


015421 040 040506 051514 EM10: .ASCII ° FALSE READER INTERRUPT@' 
015426 020105 eetite 042101 


015434 051105 0444 052116 
015442 051105 08380 052120 
015450 100 


015451 040 040506 051514 EM11: .ASCII ° FALSE PUNCH INTERRUPTQ" 
015500 051445 052105 051040 SRDRM: .ASCII ‘%SET RDR # IN SR. SET SR15 IF 6 LEVEL.@' 
015506 0511 


015530 032461 044440 020106 
015536 020066 aes 042526 


015547 045 042523 020124 SPCHM: .ASCII ‘%SET PCH # IN SR. SET SR15 IF 6 LEVEL.a’ 


053105 


040056 
015616 037445 047111 040526 INVRP: .ASCII ‘'%?INVALID RDR/PCH.a" 
015624 044514 020104 042122 
015632 eat 041520 027110 


015641 045 042122 020122 RDRIDM: .ASCII ‘%RDR ' 
015646 020040 051440 046105 ARDRID: .ASCII] ° SELECTED.a’ 
015654 041505 042524 027104 


015663 045 041520 020110 PCHIDM: .ASCII ‘%PCH ' 
015670 020040 051440 046105 APCHID: .ASCII ‘ SELECTED.a" 
015676 wade 042524 027104 


015705 045 050045 043522 TITL12: .ASCII ‘%%PRG12--PROGRAMMABLE INIT PUNCH TESTa@’ 


1 
015753 045 051120 030507 TITL13: .4SCII] ‘'%PRG13--READER LIGHT TESTa" 
015760 026463 051055 040505 
015766 042504 020122 044514 
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CZPAAC P11 13-JUN-7 
015774 4107 020124 042524 
016002 100 
ete 


016124 


-ASCII 


-ASCII 


«END 


"Z2TURN LIGHT OF READER ON VIA RDR CONTROL SWITCH" 


*ZPUT SwW8 TO 1 TO TURN LIGHT OFF.a' 


START 


SEQ 0071 





H 6 
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23894 


1127 1193 1218 1961 
24094 


6964 706 
685 6994 
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BREADC 004172 


53 
CROSS REFERENCE TABLE -= USER SYMBOLS SEQ 0073 


763 1235 1251 1267 1288 


1434 

757 
1842 
1864 


1701* 1731* 1738* 1742e 2002* 2005* 2024* 2027* 
2004* 2020* 2026* 2035 2130* 2132* 
1998* 1999* 2005 


1641 1964 2138 





J 6 
PA611_ — MACY11_-30A(1052) _14-JUN-78 14:20 PAGE 54 
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= 000032 2044 2054 2064 2074 2084 2094 2104 2144 
2174 2184 2194 2204 2218 222n 2234 2274 


015021 


1854 1926 24054 
24464 


24204 


24424 
764* 1861* 1866*  1872* 1911* 1928* 


1021 
1388 


1694 


1797 1982 
1841 
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2) 14=-JUN-78 
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CROSS REFERENCE TABLE == USER SYMBOLS 


1619 1645 


1938 


19444 
334% 458 


20°6 


2073 


281 812 


1896 
1591 


252s 


22284 
1615 


K 6 


1656 


2119 


848 


1640 


1669 


22364 


1679 


1737 


1662 


1768 


1771 


1665 


1882 


1981 


1886 


1897 


1888 


2074 


1978 


SEQ 0075 


1983 
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909% 924* 1335* 1350* 


003356 
003344 
000000 


1821* 


837* 
1655* 1664* 1885* 2080* 


1878 2071 


828* 831* 
16544 


1808" 1825" 
1075 1108 


123 
012542 
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CZPAAC.P11 13-JUN- CROSS REFERENCE TABLE == USER SYMBOLS 
PRG13B 012552 
PRG13C 254 


653 659 686* 701 705 
940* 941 946* 977* 
1036* 1039* 1058 
1171* 1192* 1805* 


— ee ot SS 


ang 


= 
= 
~ 
= 
_— 
= 
— 
= 
— 
= 
— 
= 


1221* 


WAXKLWr— 
WIGON & Co 00 
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ed ae an ee cd el 
wo—nrnrn-- 


Sr Reeerer ee 


SER 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ALKMO-WOAW— oO 
SWODOWOAON 
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a a 


55 
5 
5 
5 
5 
6 
6 
6 


2159 


1860* 
1648* 
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1286* 1307* 1587* 1610* 1772* 
1524 1547 1777 


002246 
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3624 


853 
2012 
1879 


9584 
1026 1094 
11634 12124 12324 
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12824 13024 13324 1341 13474 Fy 


000001 


012304 
016127 





